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PREFACE 


We wrote this book hoping that it would help a wide variety of people to learn to 
program a computer using the BASIC language We were motivated partly by the belief 
that the ability to program a computer will become increasingly important in the 
future—even for people who do not consider themselves to be computer scientists 
There is a tendency for many people to view learning how to program as a vocational 
skill—much like the ability to use a calculator or typewriter But there is a growing body 
of opinion that suggesis that the ability to develop and debug a computer program 
contributes to the development of human problem solving skills—to the improvement 
of the thinking process itself. 

The text is intended for use in a beginning level one-semester BASIC course and 
also by individuals desiring to teach themselves to program In addition to teaching 
BASIC, we also attempt to introduce the learner to problem-solving techniques, which 
include the use of a simple flexibie algorithmic language in creating even a moderately 
complicated program, the process is always complicated by the idiosyncrasies of the 
dialect of the language available For that reason, we prefer to teach one how to 
develop a solution in a simple but flexible algorithmic language and then translate it into 
BASIC (Chapter 3). We have found such an approach indispensable in developing 
large scale research and administrative applications in other languages. 

In presenting the BASIC language, we have attempted to stay as close as 
possible to ANSI minimal BASIC. We do cover a number of matters—strings, filles and 
graphics—which are not defined in the minimal standard. We chose to focus on 
microcomputers because of their greatly increasing popularity. We are convinced that 
they will become increasingly important in the future. Most of the BASIC syntax that we 
present is common to the Apple, the PET and the TRS-80 On some occasions, we 
must treat one machine separately Such treatment is indicated clearly as boxed 
material. We should point out, that while we focus attention on the three microcomput- 
ers, some of our own students have satisfied some course requirements with other 
systems, including Digital's MUBASIC and BASIC PLUS. On such systems, string 
handling is different and high resolution graphics is not supported at all 

We assume only that users of this book have an understanding of arithmetic. 
Since this text is intended to be useful to a wide audience including people with 
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backgrounds and interests in the sciences as well as those interested in the social 
sciences and humanities, some may find occasional sections that require more 
detailed mathematical treatments Sections 56,67, 10.9, 10 10 and 10 11 are such 
sections and can be omitted. We also realize that persons who have neither a 
background nor interest in mathematics will from time to time discover some equation 
that wil! be useful to them. With this in mind, we present in sections 6 5 and 6 6 some 
simple techniques whereby the nonmathematician can convert a useful equation into 
one or more BASIC statements. 

We give considerable attention to graphics in the belief that graphics techniques 
will continue to increase in importance We treat ‘‘teletype’ graphic techniques that 
can be used with any version of BASIC. We also treat low resolution graphics on the 
Apple, the PET and the TRS-80 individually. Finally, we treat Apple high resolution 
graphics separately We end the book with a treatment of computer mapping (Chapter 
13) using Apple high resolution graphics 

The chapters of this text are intended for use in linear order We discuss 
simulation and modeling in chapter 12 and computer mapping in chapter 13. We 
believe both these chapters present interesting and useful applications that will interest 
many students However, they may be omitted if necessary. 

The orograms displaved here were developed and tested on the Apple |} Plus 
using Applesoft BASIC, the 8k PET, and the TRS-80 with Level Il BASIC. Some 
programs were also tested on other machines Therefore, we believe that the book can 
be useful in connection with a wide range of BASIC dialects. 

Finally, in Appendix B, we present a number of useful subroutines that we use 
from time to time in various chapters. 

In the process of writing this book we have benefited from the assistance of a 
number of people We are glad to have an opportunity to express our gratitude to 
Dennis J. Clayton, Bethune Cookman College, who read the manuscript and offered 
numerous useful suggestions, to Nancy G Haigh, who read and reread drafts of the 
manuscript in order to improve its clarity and style, to Sara Waller of PWS Publishers, 
who was a patient and helpful production editor; and to our colleagues and others who 
have offered various suggestions John Biros, Mark Goldstein, Shirley Rychlicki, Doris 
Simon, Victor Tenaglia and Tony Vavra Appreciation is also extended to Jack R 
Cimprich, Glassboro State College, Barry De Roos, Community College of Denver, 


Norman Licht, SUNY Potsdam, Donald A. Norton, University of California, Davis, and 
Richard! Tangerman, Arkansas State University 


Roger W_ Haigh 
Loren E. Radford 
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COMPUTERS— 
COMPONENTS AND 
TERMINOLOGY 


INTRODUCTION TO COMPUTERS 


This ts not a text about computers Very little attention will be given to computer 
architecture However, in this chapter we will develop, in a very qualitative way, some of 
the characteristics of a microcomputer We do this to introduce terminology and to 
clarify the way humans interact with computers. 

We have chosen to link the study of BASIC with microcomputers because we 
believe that language texts often fail to emphasize certain characteristics that make the 
microcomputer so valuable to its user In particular, we will explore the screen 
orientation of the microcomputer output. We will also treat its unique graphics and file 
handling capabilities. 

Because there are so many microcomputers, each with its own dialect of BASIC, 
it is difficult to discuss their capabilities without reference to a specific machine or 
machines We chose to concentrate our attention on three machines’ the Apple, the 
PET (8k) and the TRS-80 with Level ll BASIC Selection of a computer means accepting 
the resident BASIC dialect of that device. Typically, the programs presented in this text 
were developed on one of the three computers and then tested on the others There 
are minor differences in the dialects of the BASIC language used by each of these 
computers. In most cases, we present programs that run correctly on all three 
machines. However, sometimes we must present a different version of a program for a 
specific machine In the relatively few cases that a specific program is designed for only 
one computer, we enclose that program in a box indicating the specific computer 
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Photos 1 1-1.3 


The Apple (1.1), the Pet (1.2), and the TRS-80 (1.3) microcomputers. (Photo 1.1 courtesy 
of Apple Computer Inc.; 1.2 courtesy of Commodore Business Machines; and 1.3 
courtesy of Radio Shack, a division of Tandy Corp.) 


(1 2) (1.3) 


From time to time we also present other machine-specific information in similar boxes 
In discussing the BASIC language we will try to emphasize standard rather than unique 
syntax. We will also consider important similarities and differences between the Apple, 
the PET and the TRS-80 in the area of graphics 


COMPONENTS OF A COMPUTER 


The development of the microcomputer has been very rapid indeed. It has been little 
more than ten years since Intel Corporation marketed the first microprocessor 
(computer on a chip). Early microcomputers were experimental devices built around 
microprocessors of limited capability Microprocessor capabilities have increased 
rapidly The combination of improved microprocessors and the emerging BASIC 
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language has proven to be fortunate By 1975 low cost microcomputers began to show 
significant sales outside the experimental and hobbyist markets. Sales of microcom- 
puters are now expected to increase tenfold between 1975 and 1985. Most impressive 
is the increase in capability of these small computers. As a result they have moved 
beyond the classification of personal and home computers and are beginning to 
challenge service areas formerly reserved for minicomputers Equally impressive is 
their widespread use in education. 

The microcomputer is similar to other computers in tts basic architecture Ail 
computers consist of three major components: a central processing unit (CPU), a 
memory, and input/output (1/0) devices The central processing unit consists of 
two parts the control unit and the arithmetic logic unit. Tne control unit is a 
switching center through which the computer moves information to the appropriate 
places and in the proper sequence. The arithmetic logic unit is appropriately named to 
indicate the kinds of operations it can perform on the data These operations consist of 
the standard arithmetic operations and logical comparisons. A schematic of the 
components is shown in Figure 1.1. 

The central processing unit is often called the heart of the computer. If we want to 
describe the CPU in anatomical terms, central nervous system might be the most 
appropriate term The CPU in your microcomputer is probably a single integrated circuit 
(a chip) Such a CPU is called a microprocessor The CPU may constitute only a small 
percent of the cost of your microcomputer The cabinet in which the computer is 
housed may cost as much. It is even possible to place the memory, CPU, and |/O 
functions on a single chip. However, such computers are rather limited in capability at 
present. 

If you look inside your Apple, for example, you can identify two of the three major 
components quite easily. The CPU (microprocessor) is the largest chip and is marked 
with the number 6502 The memory is housed within the white bordered area and 
consists of 8 to 24 chips labelled RAM, an abbreviation for Random Access 
Memory The memory capacity is dictated by the number of chips and is normally 
given in kilobytes. The byte is a storage location capable of holding the equivalent of a 
single character of information (for example, the letter a or the digit 7). If you have a 


Figure 1 1 
Schematic of Computer Components 
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16K (kilobyte) Apple, you would expect to have 16,000 bytes of RAM available. 
Actually, you may have a little more since one thousand to a computer turns out to be 
1024. This memory space must be shared by the instructions (your program) and by 
the data. In some cases, the CPU uses some of this memory as a ‘‘scraich pad”’ so 
that the available RAM is less than advertised. For example, the 8 Kilobyte PET has 
7168 bytes of RAM available since the CPU uses 1 kilobyte. The Apple also uses part 
of RAM in certain modes of operation. 

The interesting thing about memory is the way it is accessed by programs 
Perhaps you have seen a large array of mail slots in a hotel or apariment complex. We 
might make an analogy between these slots and the memory locations in the computer 
memory. In early versions of computers the programmer was required to know how 
much space was used for the program and to select numbered storage locations for 
the data. The programmer kept track of these locations and the particular data stored 
in them. Essentially, the programmer made a memory map Now the CPU takes care of 
that job for us. The CPU behaves like a desk clerk We simply give the clerk our name 
and the mail is retrieved from the correct box. So long as the desk clerk is well and the 
mail boxes are not all used, we have no problems. 

The input/output components of our microcomputer are the most visible parts. 


Photo 1.4 
The TRS-80 Model II microcomputer with line Printer III, external disk system, and 
system desk. (Photo courtesy of Radio Shack, a division of Tandy Corp.) 
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Besides being quite visible, they are also quite costly They are expensive because they 
must either accommodate the limitations of a human's ability to send and receive 
information (for example, a typewriter keyboard and video monitor), or because they 
are rather sophisticated devices for information storage and retrieval (for example, a 
disk drive). !1/O devices provide means of communicating with the computer Most 
commonly, the |/O devices used are the keyboard and a television monitor, a disk drive 
and/or a cassette tape unit 


INTERACTION WITH THE COMPUTER 


We mentioned earlier that the purpose of discussing computer components was to 
clarify the way human beings interact with computers— sometimes called the ‘‘human- 
computer interface. '' Let us consider a very simple program to illustrate this interface 
Suppose we wish to execute a program that will add two numbers together We must 
provide the following information to the computer: 


The operation to be performed on the two numbers, 
The source of the numbers, 
The values of the numbers, and 
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The disposition of the result of the operation. 


All of this information could be given to the computer in a set of instructions, 
which we call a program Before these instructions can be executed, they must be in 
the computer's memory (an exception will be given in Section 1.4) We must go to the 
computer's input device and enter a program through the keyboard or instruct the 
computer to retrieve the program from some other storage device. This brings us to a 
method of information storage that differs from the memory we called RAM above. Disk 
storage and tape storage are forms of magnetic storage which have the advantage of 
permanency; the contents are not lost when the power is turned off. Suppose that the 
program is stored on a floppy disk. The program calls for the entry of the two numbers 
at the keyboard and the display of the sum on a video screen. Here is a possible 
sequence of events: 


Step 7? User types an instruction at the keyboard telling the control unit to 
place the program in memory (input) 


Step 2 Control unit finds the program in disk storage and places it in 
memory (RAM). (input and storage) 


Step 3 Control unit sends a message to user via video indicating that the 
program is stored. (output) 


Step 4 User tells control unit to execute the program (input) 
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Step 5 Control unit responds by bringing the program instructions from 
memory and executing each of them in turn. (processing instructions) 


Step 6 During this execution the control unit will ask for input of two values 
from the keyboard by placing a prompt on the video screen. (output) 


Step / User provides the values to control unit (input) 
Step  @ Control unit stores the values in memory (RAM) (storage) 


Step Q9 Control unit takes the values from memory and moves them to the 
ALU for addition. (processing data) 


Step 10 Control unit stores the answer in memory (RAM) (storage) 


Step 17 Control unit delivers the answer from memory to the video screen 
(output) 


A schematic of this process is shown in Figure 1.2 

The important thing to note from this example is the complexity of this apparently 
simple task. We observe that the control unit is involved in every step. With this 
example we hope to illustrate the essential steps in making the computer work for us. 
These steps are input, process, and output. Input steps involve giving the computer 
instructions and data. The process step involves the control unit carrying out the 
operations specined in the instructions. }he output siep invoives the presentation oil 
the results of the process to some device for viewing or for storage 


THE COMMUNICATION PROCESS 


We would like to be able to communicate with the computer in a language that is natural 
to us. In computer jargon this is a High level language. BASIC is such a language In the 
example above, we noted the critical role of the control unit. Its role is even more 
remarkable when we consider that it doesn’t understand the BASIC language. The 


Figure 12 
Input, Process, and Output Events Involved in Executing a Computer Program 
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The Communication Process 


Photo 15 


The TRS-80 Line Printer VII, an I/O device which displays output. (Photo courtesy of 
Radio Shack, a division of Tandy Corp.) 


conirol unit cannot read the instructions we write in BASIC It must have access to 
another set of instructions that translate these instructions into machine language to 
which the microprocessor can respond. This introduces additional complexities For 
example, the control unit must keep track of where it is in the sequence of stored 
instructions The entire high level language program is not retrieved from storage and 
translated at one time 

The computer, of course, does not translate languages the way humans do. The 
computer scans the instructions for certain key words and symbols. Each key word is 
translated into one or more machine operations Only certain key words have meaning 
to the computer When a key word is misspelled, the computer is unable to deduce our 
meaning Humans can often deduce from context what others are trying to convey. 
Computers, at least in their present state of development, cannot deduce from context. 
Thus, we see the need for rather rigid rules of grammar (syntax) in dealing with the 
computer 

Earlier we noted that to add two numbers together we needed a set of 
instructions in the computer's memory Then we discussed a mode of operation of the 
computer called program mode In program mode we ask the computer to execute a 
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prepared set of instructions, which are stored in its random access memory (RAM). A 
second mode of operation relays instructions for the performance of some arithmetic 
or logical operation directly to the CPU. In this mode, called immediate mode, we ask 
the computer to perform an operation by issuing an instruction at the keyboard. The 
computer performs in much the same way as a hand calculator In immediate mode, if 
we type 


PRINT 2+ 3 


the computer responds with the number 5. 

Later, we will find the immediate mode convenient for checking the contents of 
memory locations in the process of debugging (correcting) a program. Of course, we 
also communicate directly with the CPU when we issue instructions to retrieve 
programs from disk storage, execute (RUN) programs, LIST programs, and so forth 


HARDWARE AND SOFTWARE 


[he technical terms, nardware and software, nave vecuine Yuille Coiinunpiace. 
The hardware in a computer system is generally considered to be all of the electronic 
equipment including ihose pieces of equipment that coniain operaling instructions and 
language translation instructions. The instructions for language translation on the 
microcomputer are contained in read-only memory (ROM). The ROM is considered 
part of hardware, although its function is to provide instructions to the control unit. In 
contrast, software is a set of instructions which is resident in RAM as a result of placing 
a program there The programs we write in BASIC will be computer software. As 
software is developed it is placed on disk or cassette tape so that it need not be 
entered through the keyboard each time the program is to be executed. 


Throughout this text we will be concerned with the appearance of the output generated 
by our programs. We discuss the screen space available for that output in this section 
The screen space is defined by the number of printing lines (rows) and the number of 
printing positions on each line (columns) This set of rows and columns defines the 
screen grid. Each computer must have some way of indicating that it is prepared for 
input and where the next input will be printed This indication is given through the 
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Photo 16 


The TRS-80 screen grid is divided into printing lines (rows), and the number of printing 
positions on each line determine columns. (Photo courtesy of Radio Shack, a division of 
Tandy Corp.) 
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prompt and the cursor location. These characteristics for each machine are discussed 
below: 


APPLE 


screen space 24 printing lines each 40 characters long 
Prompt |= Applesoft BASIC 

> = Integer BASIC 
Cursor a blinking square 


TRS-80 


screen space 16 print lines each 64 characters long 
Prompt > 


Cursor anunderline 
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Screen space. 25 printing lines each 40 characters long 
Prompt the word READY 


Cursor: a blinking square 


The cursor locates the current position of the printing head. The next character 
entered at the keyboard will appear at the current cursor location. Successive 
characters entered at the keyboard will appear on the same line as in typing. If we 
continue to print beyond the permitted number of spaces on a line the computer will 
print the excess on the next line(s). If we print more than the number of lines per full 
screen, subsequent lines will be printed at the bottom of the screen with the preceding 
lines of text being moved upward one unit. This effect, called scrolling, can be 
troublesome. To avoid scrolling, we need to be aware of the characteristics of our 
output screen. 

On some machines the cursor position can be moved to permit editing (fixing or 
modifying) programs. The Apple and the PET have such controls. The TRS-80 has a 
special eait mode so that movement of the cursor around the screen is not necessary. 
Cursor control on the Apple and PET is discussed below. 


We recommend cursor control through use of the four keys I, J, K, and M 
whose relative positions suggest the moves they allow To enter cursor 
control mode press the ESC key once. Thereafter, using either of the four 
keys will produce the movements indicated below 


up 
E 
K = right 
AA 
down 


To get out of cursor control mode, press any key other than one of the four 
above or such special keys as RESET and CTRL Cursor control moves 
may be repeated automatically by using the REPT key simultaneously with 
the appropriate move. 
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Use the four arrow keys on the top of the number pad to move the cursor 


around Note that two of the keys are accessed by using a shift key 


EXERCISE SET 1.1 


These exercises are designed to give you some experience with the screen and 
storage characteristics of your computer They require that you enter simple programs 
and immediate commands at the keyboard. You may not understand the programs 
until later 


| The computer's memory (RAM) is used to store both instructions and data. This 
exercise is designed to illustrate space utilized during program storage. Follow 
the preliminary instructions step by step. 


(a) With the computer on, type NEW at the keyboard and then press 
RETURN You have just issued an immediate command to the control unit 
to clear any program and data from RAM 


(b) Type PRINT FRE(Q) at the keyboard and then press RETURN lf you are 
using a TRS-80, type PRINT MEM and press ENTER. The computer will 
display a number that represents the number of bytes of RAM available at 
this time. If the computer is an Apple, the number displayed may be 
negative. In this case, add 65536 to it to obtain the number of bytes free. 
Record this number. 

Sometimes you will type the wrong character If you discover the error 
before you press RETURN, you can easily delete the unwanted character 
or characters by using the delete key—the key with the left-pointing arrow, 
which is tocated at the right side of the keyboard If you are using a PET, 
use the key in the far upper right corner with DEL on it. One character will 
be deleted each time you push the key If you have already pushed 
RETURN when you discover the error, you can retype the entire line. 


(c) Type the following and then press RETURN 
110 READA 


(d) Repeat step (b). The bytes of RAM available should have decreased by 
seven (eight for the TRS-80 and the PET). if the number was negative, it 
becomes more negative by seven Memory space decreases because the 
computer stored one line of instructions The seven (or eight) bytes were 
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used as follows 


five for the line number (regardless of its size), 
one for the word READ, 
one for the character A, and 


one for the blank space betwen READ and A (for the TRS-80 and the 
PET) 


You will note that the Apple makes its own decisions about spacing at no 
costin RAM The PET and TRS-80 use RAM to store spaces except for the 
one after the line number As you begin to format your programs, you will 
recognize that there are advantages and disadvantages to either feature. 


Now enter the line 120 READ B and press RETURN (or ENTER) 


Repeat step (b) and the bytes available should decrease by seven (eight for 
the PET and the TRS-80) 


Enter the following. Press RETURN after each line 


130 LETC=A+B 
140 PRINT C 


150 DATA 4,9 


Compute the bytes that you think these three lines require and compare 
your answer with the computer's result by typing PRINT FRE(O) or PRINT 
MEM 

Now you should be able to evaluate the memory space requirements 
of programs Recall that line numbers use five bytes, the word following the 
line number (a BASIC keyword) uses one byte and each other character or 
digit uses one byte Evaluate the bytes required to store each of the 
following program lines 


100 INPUT X 

200 LETY=X+5 
300 PRINT "DOG" 
400 PRINT Y 

520 END 


Cd dnd 


2 This exercise will illustrate the use of RAM for data storage Follow the steps 
outlined below 


(a) 


Type NEW and then enter the following program, pressing RETURN after 
the entry of each line. 


100 READA 
110 PRINTA 
120 DATAS 
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(D) 
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Type PRINT FRE(Q) or PRINT MEM, press RETURN, and record the 
number of bytes free 


Type RUN, press RETURN, and observe the computer print the number 


five. Now type PRINT FRE(Q) or PRINT MEM, press RETURN, and 
compare the bytes free with the value obtained in Step (b) There should be 
seven fewer bytes available as we now have data (the number five} in 
memory location A. Each numeric data storage location uses seven bytes 
of RAM 


The immediate command CLEAR clears al! data storage locations in the 
computer's memory but does not remove the program instructions. Type 
CLEAR, press RETURN, and again determine the number of bytes free. 
You should find that the seven bytes used for data storage are now 
available 

To compute the space required for data storage we must be able to 
determine the number of memory locations set aside for data by the 
program. This is usually determined by counting the variables used by the 
program. Variables will be discussed in more detail in Chapter 2. The 
demonstration program in problem 1 above used three variables. A, B, and 
C It would require twenty-one bytes for data storage Determine the space 
required for program and for data storage in the following program: 


110 INPUT A 
120 LETC=A+5 
130 PRINT C 


Determine the program and data storage space needed for the programs 
below: 


(a) 


100 INPUT A,B 
110 LETC =A*B 
120 PRINT C 

130 END 


100 READ A,B,C 

110 LETD=A*B+C4+ 75 
120 PRINT C 

130 DATA 4,5,6 

140 END 


This problem consists of three exercises designed to demonstrate screen 
characteristics 


(a) 


Type NEW, enter the following program pressing RETURN (ENTER) after 
each line, and then type RUN and press RETURN (ENTER) 
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100 HOME 
110 FOR!=1TO4 

120 PRINT "0123456789"; 

130 NEXT I 

140 PRINT 

150 PRINT "40 COLUMNS ARE AVAILABLE - COUNT THEN 
160 END 


100 PRINT CHRS$(147) 

110 FOR! =1TO4 

120 PRINT '0123456789'; 

130 NEXT | 

140 PRINT 

150 PRINT "40 COLUMNS ARE AVAILABLE - COUNT THEM’ 


| 160 END | 


== TRGC.8p 


100 CLS 

110 FORi=1TO8 
120 PRINT '12345678'; 
130 NEXT I 


140 PRINT 
150 PRINT '64 COLUMNS ARE AVAILABLE - COUNT THEM" 
160 END 


To see your program after it is entered, tyoe LIST and then press 
RETURN 

(b) Type NEW, enter the program below and follow the instructions of Step (a) 
above Select the appropriate version of the program for the machine you 
are using 
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100 HOME 
110 FORI=1T0O 24 

120 PRINT TAB(38) I; 

130 IF | < 24 THEN PRINT 
140 NEXT! 

150 VTAB 1 

160 HTAB 1 

170 PRINT "24 ROWS ARE AVAILABLE - COUNT THEM' 
180 END 


PRINT CHRS(147) 

FORI= 1T0O 25 

PRINT TAB(35) |; 

IF |< 25 THEN PRINT 

NEXT | 

PRINT CHRS(19) 

PRINT "25 ROWS ARE AVAILABLE - COUNT THEM" 
END 


= TRS-20 = 


CLS 

FOR!I=1TO 16 
PRINT TAB(38) I; 

IF |< 16 THEN PRINT 


NEXT | 
PRINT @ 1, "16 ROWS ARE AVAILABLE - COUNT THEM’ 
END 


(c) Type NEW and enter the program below if you are using a TRS-80, 
substitute CLS for HOME If you are using a PET, substitute PRINT 
CHRS$(147) for HOME LIST and RUN the program 


100 HOME 
110 FORI=1TO30 
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120 PRINT TAB(!)"SCROLLING’ 

130 FOR J= 170200 : NEXT J 

140 NEXT I 

150 PRINT "NOTE THAT WHEN WE REACHED THE' 
160 PRINT "BOTTOM OF THE SCREEN, THE LINES' 
170 PRINT "BEGAN TO ‘SCROLL’ UPWARD.’ 

180 END 


Review 
We summarize the new terms introduced in this chapter. 


MICROCOMPUTER — a computer in which the central processing unit is a micropro- 
cessor (Section 1 1) 


BASIC an acronym for a high level computer language entitled Beginners’ All- 
purpose Symbolic /nstruction Code (Section 1.1) 


BASIC DIALECT a version of the BASIC language characteristic of a certain 
machine oF Sonware Geveloper. (Section 7 7) 

MICROPROCESSOR = aceniral processing unit on a single integrated circuit (chip) 
(Section 1.2) 


CPU an acronym for Central Processing Unit. The CPU consists of two subunits 
called the control unit and the arithmetic logic unit. (Section 1.2) 


!/O — an abbreviation for input/output |/O may refer to the processes of information 
exchange with the CPU or to the devices, which are used in these processes (Section 
1.2) 


MEMORY _ storage locations in which instructions (a program) or data may be 
located. (Section 1 2) 


CONTROL UNIT the part of the CPU that handles the flow of information during 
execution of a program. The control unit also handles functions relating to retrieval, 
storage, and displaying of instructions or data (Section 1 2) 

ARIIAME TIC LOGIC UNIT (ALU) — tne part of tne CPU wnicn periorms ariifunetic 
operations and makes comparisons. (Section 1.2) 


RAM an acronym for Random Access Memory that can be used for storage of 
program instructions and data during execution of a program. (Section 1.2) 


KILOBYTE a unit of storage capability containing 1024 memory locations (two to 
the tenth power) (Section 1.2) 
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PROGRAM _ a set of instructions to the computer written in some language that the 
computer understands or can translate. (Section 1.3) 


DISK STORAGE a form of permanent storage for programs or data that allows 
rapid recording and retrieval on a random basis. (Section 1.3) 


TAPE STORAGE a form of permanent storage for programs or data that is 
accessed sequentially and that requires a longer access time than disk storage. 
(Section 1.3) 


HIGH LEVEL LANGUAGE _a language that allows computer instructions to be 
written in English-like statements. (Section 1.4) 


MACHINE LANGUAGE a language to which the CPU can respond directly 
(Section 1.4) 


SYNTAX — rules of expression for any language to which the computer is expected to 
respond. (Section 1 4) 


PROGRAM MODE a mode of computer operation in which the control of the 
computer is given over to the instructions in a stored program (Section 1.4) 


IMMEDIATE MODE amode of computer operation in which instructions are given 
directly to the CPU from the keyboard. (Section 1 4) 


HARDWARE _ those built-in parts of the computer that permit it to function as 
advertised (Section 1.5) 


SOFTWARE computer programs that link with the hardware to adapt the computer 
to the needs of the particular user (Section 1 5) 


ROM anacronym for Read Only Memory that is used by the computer to store fixed 
instructions ROM might contain instructions for translating a high level language to 
machine language (Section 1.5) 


SCREEN GRID a term that considers the screen to be composed of a grid of 
printing positions. (Section 1.6) 

SCROLLING text movement up the screen as additional lines are printed at the 
bottom. (Section 1 6) 


CURSOR CONTROL movement of the cursor (printing position) through the use of 
certain keys (Section 7 6) 
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ELEMENTARY 
PROGRAMMING 
TECHNIQUES 


2.1 INTRODUCTION TO ELEMENTARY 


PROGRAMMING TECHNIQUES 


A computer is a machine that ‘‘manipulates symbols by following the instructions in a 
computer program.’’* A computer program is a sequence of instructions written in a 
language that the computer understands A computer's native tongue is machine 
language, which consists entirely of numbers. In the last chapter we pointed out that 
higher level languages, such as BASIC, have been developed so that computer 
programs can be written in a language more easily understood by humans. Such 
programs are then translated into machine language by a compiler or translator. The 
computer will execute the machine language version of the program. 

In this chapter we will concern ourselves with very rudimentary programs, which 
illustrate the following 


1 Storing data in memory under program control, 
2 Output of data from memory under program control, and 
3. Arithmetic operations on data 


The program ts entered into the computer as a series of statements, each 


*Rich Didday and Rex Page, FORTRAN FOR HUMANS, 2d ed , (St Paul’ West Publishing Co., 
1976), p.3 
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2.2 


2.3 


preceded by anumber The order of the statement numbers determines the order of 
their execution, unless the program itself dictates the altering of that order. In this 
chapter we will only consider programs that are executed in the sequence of their 
statement numbers. 


PROGRAM ENTRY 


We enter our program (sequence of instructions) by typing them on the microcomputer 
keyboard. Before beginning to enter a new program, type. 


NEW and then press RETURN (Apple and PET) 
NEW and then press ENTER (TRS-80) 


This step clears any program that may be in memory. We are now ready to enter 
a program. Suppose we are preparing a program to accomplish the addition of two 
numbers as described in the last chapter We write such a program as follows 


100 INPUTA 

110 INPUT B 

120 LETC=-A+8B 
130 PRINT C 

140 END 


Our program contains five instructions. Each instruction consists of a statement 
number followed by a word The word is called a keyword. The keyword makes it 
possible for the BASIC interpreter to identify the instruction to be performed. 
Sometimes more than one keyword is used in the same line Certain letters and 
arithmetic symbols are also present within this program. 

To enter this program we type each line just as it appears above. At the end of 
each line, press the RETURN (ENTER) key and enter the next line. To view the 
complete program when it is entered, do the following: 


Type LIST and then press RETURN (ENTER) 


The comouter will display what you have entered 


THE NATURE OF A VARIABLE 


In the example program in Section 2.2 we see the letters A, B, and C. These letters are 
called variables in the program. A variable is a symbolic name for a memory location 
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used to store an element of data in our program. In mathematics, we often consider a 
variable to be a symbolic representation of a whole range of values. In a computer 
program, the variable represents a single well-defined quantity That quantity can 
change values under program control, but it cannot have more than one value at any 
given time. 

lt is common in scientific literature to distinguish between Gependent variables 
and independent variables. A dependent variable is one that depends upon other 
variables and constants for its value. For example, in the statement 


120 LETC=A+8 


C is the dependent variable. In this statement, the value of C depends upon the values 
of Aand B In contrast, both A and B hold their values independently of whatever value 
C may have. For these reasons, A and B are classed as independent variables. 
Statement 120 above is characteristic of a class of statements called arithmetic 
assignment statements. In such statements, the dependent variable appears alone 
on the left hand side of the expression, and the independent variables appear on the 
right hand side. 

The number of variable names which can be used in BASIC is limited. The 
variable names above consist of single letters. Longer names, involving a/ohanumeric 
characters, are permitted. An alphanumeric character is a letter or one of the ten digits. 
The computer usually ignores all but the first two characters. Thus, to the computer, the 
names A12 and A183 are identical. A variable name in BASIC must begin with a letter It 
may be followed by other letters, other decimal digits, or a blank space (some BASICs 
require the second character to be a digit or a blank). Since there are twenty-six letters, 
one blank space, and ten decimal digits, we would expect to have 26 x 37 = 962 
variable names. However, we fall slightly short of this number because certain 
reserved words cannot be used tn variable names. 

Reserved words are words that have special meanings in the BASIC language. 
The keywords discussed above are examples of reserved words. We noted that LET 
is a keyword. As a result, a variable name such as BULLET is not permitted. As 
another example, the word ‘‘TO" wouid appear to be a valid variable name. However, 
TO is a keyword and will not be accepted Other examples will be given in the 
exercises. Use of a single character variable name or a single character and digit will 
avoid any conflict with reserved words However, we will use longer, more descriptive 
names in this text to identify certain variables more precisely. We do need to be careful 
in the selection of these longer variable names 

The rules above imply that special characters such as #, $, %, &, (, and so forth 
are not permitted in variable names We will find some exceptions to this general rule as 
we continue For example, $ has a special meaning in a variable name 
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EXERCISE SET 2.1 


| 


Determine which of the following are invalid variable names Give a reason in 
each case 


BB BALANCE MONEY 
3A T& FIVE+ 
LEGALTENDER Al # C123 
BOOKLIST FORK PAY RATE 


Note: A quick way to see if the computer will accept a variable name is to enter in 
immediate mode PRINT NAME where NAME is the test name Unacceptable 
names will cause the printing of an error message An important exception to this 
is an invalid variable name such as 3A, which begins with a digit 


Enter and LIST the following programs 


Program 1 


1700 LETC=7 

110 LET CSQR = C2 
120 PRINT CSQR 
130 END 


Program 2 


100 LET SALESPRICE = 5.75 

110 LET TAXRATE = .04 

120 LET COST = SALESPRICE * (1 + TAXRATE) 
130 PRINT SALESPRICE, COST 

140 END 


Observe carefully the result of running these programs. In each case, error 
messages are generated, indicating that we have chosen illegal variable names. 
What new reserved words have you discovered? 


In the last chapter, we pointed out that the computer in program mode typically 
retrieves data from memory. We might logically ask how such dafa gets into memory in 
the first place. Three methods of data storage are possible They are 


1 The LET statement, also called the arithmetic assignment statement, 
2 The INPUT statement, which retrieves data values from the keyboard, and 
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3 The READ statement, which retrieves data values froom DATA statements 
within the program itself. 


We consider each of these methods in turn. 

In the last chapter, we noted that every computer has a certain amount of 
memory (RAM) that is able to hold a representation of numeric or character values. 
Each memory location has a unique numeric address within the computer. Therefore, it 
is possible to store a specific value in a specific memory location However, BASIC 
makes it easier for us by allowing the use of variable names to store values in the 
computer Let us consider the following statement 


100 LET X = 19 


This statement instructs the computer to select a memory location for the 
variable X and to store the value 19 in that location Therefore, it is unnecessary for us 
to know the exact memory address of any particular value. The computer creates a 
cross reference table or memory map, which contains the memory address associated 
with each variable 

Consider one more example of an arithmetic assignment statement. 


120 LETC =A+B8B 


This statement instructs the computer to locate the value stored in the memory 
location associated with A, add it to the value stored in the memory location associated 
with B, and then store the resulting value in the memory location associated with C The 
arithmetic assignment statement is then used not only for placing values in storage, but 
also to indicate the operations to be performed on independent variables. 

We should note that statement 120 above looks like an equation. However, it 
should be viewed as an assignment statement—a method of giving a value to variable 
C. This distinction will become more important when we encounter arithmetic 
assignment statements that are nonsensical as equations. 

The next form of entering information into memory is through the INPUT 
statement. In the example program shown earlier in this chapter, Section 2 2, two 
statements containing the keyword INPUT appeared 


100 INPUTA 
110 INPUT B 


When the computer encounters such a statement during program execution, it 
will print a question mark at the terminal. This question mark is a signal to the user that 
the computer is waiting for a value for A to be entered (line 100). The user responds by 
typing a value and pressing the RETURN key The computer then moves to line 110 
and repeats the process but then assigns the entered value to B 

The final form for entering data into storage is through the READ statement. The 
READ statement works in a manner similar to the INPUT statement except that values 
are retrieved from a data set within the program itself, rather than from the keyboard. 
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Consider our example addition program as modified here 


100 READA 

110 READ B 

120 LETC=A+B 
130 PRINT C 

135 DATA 27,36 
140 END 


Notice the appearance of an additional! line, (line 135) This line provides data 
internal to the program. The DATA line is necessary because of lines 100 and 110 that 
instruct the computer to seek data within the program. When line 100 is executed, the 
computer will find the first value on the DATA line and assign that value to the memory 
location associated with A. Upon execution of line 110, the value thirty-six will be 
assigned to the variable B. 

In summary, there are four keywords associated with storage of values in 
memory. These are: 


_LET—for assigning constants or the results of operations, 
INPUT —for entering values at the keyboard, and 
READ and DATA —tor entering values contained in the program. 


At this point, we should mention that the use of the keyword LET is not 
necessary in most BASIC systems. That is, we might have written 


120 C=A+B 


in the preceding program and the same operations would have been performed. 
However, the use of LET reminds us that we are dealing with an assignment statement 
and not a statement of mathematical equality Its use also preserves a certain 
symmetry, having all statements begin with a keyword. You may choose to dispense 
with the LET When you do so, we hope you will read the equals sign as ‘“‘is assigned 
the value of”’ 


ARITHMETIC OPERATIONS 


The example program in Section 2 4 indicates the operation of addition in statement 
120. Arithmetic operations will appear only in arithmetic assignment statements in 
this text It is possible to output the results of operations without the intermediate 
storage step, but we do not recommend such a practice. The permitted arithmetic 
operations are’ 
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+ Addition 

— Subtraction 

* — Multiplication 

/ Division 

° Exponential (up arrow (f) for the PET and the TRS-80). 


In using the operators above we need to understand how the computer responds when 
combinations of operators appear in the same expression. For example, consider the 
following statement 


120 LETV=3+5%7*2 


When the computer executes this statement, what value will be stored for V? Will 
the computer add 3 to 5 to get 8 and then multiply the result by 2 to get 16? Or will it 
multiply 5 by 2 to get 10 and add 10 to 3 to get 13? 

The computer is bound by a set of rules that answers these questions for us. This 
set of rules is called the hierarchy of operations. If you have studied this hierarchy in 
mathematics, you will find it the same here The hierarchy of operations follows. 


1 Quantities within parentheses are evaluated first using rules 2, 3, and 4 
following. Innermost parentheses must be evaluated first 


2 Among the arithmetic operations, exponentiations are performed first. 
3  Multiplications and divisions are performed next—the order is unimportant 
4 Additions and subtractions are performed last—the order is unimportant. 


The following worked examples illustrate this hierarchy 
100 LET V = 3 * 2°3 + 4 evaluates in the following manner: 
Step 1 23=8 
Step 2 3*8=24 
Step 3 24+4+4=28 
100 LETC = (3 + 8) * 5 evaluates in the following manner 


Step 7 34+68=11 
Step 2 11*5=55 


100 LET A1 = (2 * (1 + 5)) + 12/2 evaluates in the following manner. 


Step 1 14+5=6 
Step 2 2*6=12 
Step 3 12/2=6 
Steo 4 124+62= 18 
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EXERCISE SET 2.2 


1. Write BASIC statements to accomplish the following: 
a) Obtain the value of CASH from the keyboard. 
b) Enter data values 34, 45, and 79 into a program. 


d) Assign to BALANCE the product of PRINCIPAL and PERCENT 


( 
( 
(c) Obtain values for X and Y from within the program 
(d) 

(e) Assign to QUOTA the value 55. 


2. Write BASIC statements that will cause the following expressions to be evaluated 
and assigned to the variable RESULT 


(a) F divided by the quantity T + 30 
(b) the product of A, B, and C 
(c) the sum of 21 and 5 squared 
(d) the product of the quantities S andR + 1 
3. Evaluate the following expressions 
(a) $+4°5°2 
{(b) (30 —-2*3)/4 
(c) 20-—(15 + 2*3)/3 
(d) (6* (14 3))/3 
(e) 28/(5 + 4/2) 
(f) (4*9 — 6)/(1 4+ 3*3) 
4. Evaluate each of the expressions in problem 3 in immediate mode by entering the 


command PRINT followed by the expression. Check to see that the results 
agree with your hand calculation. 


OBTAINING OUTPUT FROM 
THE DDMOODANA 
Bh RAH 2 ANN RHA AL 


Output from the computer to the video screen is accomplished through the use of 
statements with the keyword PRINT We will use the PRINT statement for two 
purposes: to deliver values stored in memory to the screen and to deliver character 
strings found in the program to the screen. It should be clear that the operation of 
printing is nondestructive to the data in memory. That is, a value is printed and yet 
remains unchanged in memory The term ‘‘character string’ refers to any printable 
characters on the keyboard. Printable characters include the alohanumeric characters 
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and special symbols. Delivery of data from memory allows us to see the results of a 
computation that may have been stored there Such statements take the form. 


130 PRINT C 


This statement instructs the computer to deliver the value stored in the location 
associated with variable C to the screen 

The second common use of the PRINT statement is to place prepared 
messages, character strings, on the screen Examples are. 


110 PRINT "ENTER THE VALUE OF A' 
120 PRINT "THE ANSWER IS' 


Notice that the character string to be printed is enclosed within quotation marks 
Combinations of data and character strings may be contained in a single PRINT 
statement For example, we might write 


150 PRINT "THE ANSWER IS ';C 


The BASIC language provides certain punctuation that can be used with our 
output This punctuation is used with the PRINT statement to control the format of the 
output The punctuation consists of commas and semicolons The function of each is 
discussed below 

The comma ‘‘,” is used to control placement within groups of columns called 
fields The following programs illustrate the use of the comma and field structure. They 
are different because the field structure is different on each computer 


APPLE 


100 PRINT '0123456789ABCDE'’, 
110 PRINT '0123456','0 123456" 
120 PRINT 1,2,3 

130 PRINT ,2, 

140 PRINT 3 

150 PRINT 1,,3 


A run of this program appears as follows 


0123456789ABCDE 0123456 0123456 
1 2 3 

2 3 
1 3 


You should note the presence of the three fields The first two are sixteen 
characters wide and the third is eight characters wide. Access to the third 
field is denied if the string printed in the second fietd is too long. 
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100 PRINT '012345678', 

110 PRINT '012345678','012345678','012345678' 
120 PRINT 1,2,3,4 

130 PRINT,2, 

140 PRINT 3 

150 PRINT 1,,3,4 


A run of this program appears as follows: 


012345678 012345678 012345678 012345678 
1 2 4 


@ s R 8 0 ODA PE EEN Ee RL TR EVD DERE ERS ELE Se PEER ET SENOS OEE PE IGE RE pls Se aac aR es tects S 


100 PRINT '0123456789ABCDE’",'01234567 89ABCDE’, 
110 PRINT '0123456789ABCDE','01234567" 


120 PRINT 1,2,3,4 
130 PRINT ,2 
140 PRINT 3 
150 PRINT 1,,3,4 


A run of this program appears as follows’ 


0123456789ABCDE 0123456789ABCDE 0123456789ABCDE 01234567 
4 2 3 4 
2 3 
4 3 4 


There is room for a full fifteen characters in the fourth field of the TRS-80 


Note that we were able to obtain blank fields by the appropriate use of commas 


Vf oth mt tn tiaatan than fal me o 
fou will want ic investigate the ficld characteristics of ycur computer for yourself 


Ordinarily, every execution of a PRINT statement causes BASIC to begin printing 
a new line. We say that a print statement is followed by a line feed However, because 
ihe last character in statement 130 was a comma, the line feed was suppressed and 
the next value was printed by statement 140 on the same line 

The semicolon “';’' used between variables or character strings causes minimum 
spacing between output lt also suppresses the line feed. The following program 
illustrates the effect of the semicolon. 
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100 PRINT 1;2;3;'A‘';'B'" 

110 LET X = 20 

120 PRINT "HE WAS';X;"YEARS OLD.’ 
130 PRINT "HE WAS ';X;" YEARS OLD." 


The program output is displayed below for each computer 


>» APPLE 


123AB 
HE WAS20YEARS OLD. 
HE WAS 20 YEARS OLD. 


PET AND TRS-80 


123 AB 
HE WAS 20 YEARS OLD. 


HE WAS 20 YEARS OLD. 


Note that in order to intermix numbers with text we need to leave appropriate 
spaces. Some computers leave a space before and after a positive integer so that 
numbers are more easily integrated into the text. The PET and the TRS-80 provide this 
kind of spacing. 

We began this chapter with a discussion of a program that illustrated the steps of 
input, processing, and output. Let us look at that program again. 


100 INPUTA 

110 INPUT B 

120 LETC=-A+B 
130 PRINT C 

140 END 


When we run this program we see the following. 


221 
212 
33 


This is not very informative. Our program needs to be clarified so that a user may 
understand what is happening without looking at the program listing. We insert the 
following statements. 
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90 PRINT "THIS PROGRAM SUMS TWO NUMBERS" 
95 PRINT "ENTER THE FIRST NUMBER’; 

105 PRINT "ENTER THE SECOND NUMBER’; 

130 PRINT "THE SUM OF ';A;" AND ';B;" 1S ';C;°." 


Omit extra blanks for PET and TRS-80 
With these statements a run of the program appears as follows: 


THIS PROGRAM SUMS TWO NUMBERS 
ENTER THE FIRST NUMBER 7271 
ENTER THE SECOND NUMBER ?12 
THE SUM OF 21 AND 1215S 33. 


The semicolons in lines 95 and 105 cause the prompts ‘'?”’ to be printed on the 
same line as the request for data because the line feed was suppressed. We also 
repeat the input in the final line of output, using semicolons to construct a sentence with 
proper spacing. 

In discussing punctuation, we should also note that the comma can be used with 
READ and INPUT keywords to store multiple values in memory with a single 
statement. For example, 


100 READ X,Y 


will cause the computer io seek values in a DATA line for two values and store them as 
variables X and ¥ 
Similarly, 


100 INPUT X,Y,2 


will cause the computer to seek three values from the keyboard for assignment to X, Y, 
and Z. 


EXERCISE SET 2.3 


Write programs that will accomplish the following 


1 Read three vaiues from a data iine and print therm in the ihree elas on a single 
line 
2. Input two values from the keyboard, add them together, and print the entered 


values in the first two fields and the sum in the third field. 


3. Read a value from a data line and print the word TOTAL in the first field and the 
value read in the third field. 


4 Print in the following order your last name, first name, and middle initial in the first 
three fields. 
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5. Input a value from the keyboard, multiply it by .05 and save this value as the 
variable TAX. Add TAX to the value entered and call the result SPRICE Print the 
character strings LPRICE, TAX, and SPRICE in the three fields on one line On 
the next line print the value entered, the value of TAX and the value of SPRICE in 
three fields. 


6 Determine values for all variables in the following programs after they are run 


(a) 100 READA 
110 LETC =2447A 
120 PRINTC 
130 DATA6 
140 END 


(b) 100 READ X,Y 
110 LET Z =(X/Y + 30)/X*2 
120 PRINT X,Y,Z 
130 DATA 4,2 
140 END 


(c) 100 LETC =5 
110 LETD =(C + 10)/3 
120 PRINT "DIS EQUAL TO';D 
130 END 


7 Display the output of each preceding program in the format in which it will appear 


on the computer screen. 


EDITING THE PROGRAM 


For our uses, editing will indicate the process of making changes in a program already 
entered into the computer. Obviously, we review (edit) handwritten programs before 
entry into the computer Editing should begin as soon as the program is entered. 
Before executing the newly entered program, verify that the program in the computer's 
memory is identical with what was supposedly entered. Do this by listing the program 
and checking for data entry errors. 

Errors involving omissions of entire statements are corrected by typing in the 
missing statements The computer is not concerned with the time sequence in which 
our statements are entered, only their numerical sequence ts important. 

Toremove unwanted statements, we simply type the statement number and then 
press RETURN (ENTER) This enters a blank statement, which replaces the existing 
statement Most systems allow blocks of statements to be deleted For example, on 
the Apple this is accomplished by typing DEL 150,200 followed by a RETURN. This 
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deletes statements 150 through 200. On the TRS-80, the command is DELETE 
150-200. The PET has no command for deletion of blocks of statements. 

Correction of a program statement is somewhat more difficult. Correction by 
retyping the entire line ts, of course, always acceptable and may be quicker with short 
lines. The alternative to retyping a statement is editing it on the screen (or in edit 
mode on the TRS-80). 

The foliowing examples will illustrate the editing procedure. 

1 Change of a character. Consider the line: 


100 PRINT "MY NOME IS JOHN." 


We want to correct the misspelling of NAME. 


APPLE 5° 


Type LIST 100 and press RETURN. 

Press ESC to enter cursor control mode 

Move the cursor using the combination of I, J, K and M keys until it is 
over the 1in 100 

Copy line 100 using the right arrow key. Use this key to move the 
cursor over the O in NOMé Now press ihe A key Io repiace © wiih 
A. Continue to copy by pressing the right arrow key until the end of 
the statement is passed. 

Press RETURN at this point and LIST to see that the line is 
corrected. 


re P | W ‘ EET, TALE PLR TBE TLS RELIC CUE UTTER EEE DZ ere ee re Re Be dene 


Type LIST 100 and press RETURN 
2 Use the cursor keys to move hy the shortest path to the letter O. With 
the cursor over O, press Ato replace O with A 

Press RETURN and LIST 100 to see the correction 


z T R S . 8 0 Lay eee LE OT BAD CST EASP EN OSE UGE Sat EU SUSE IEEE, Sgt) METAL, GAO NOTES LOE Th A ED OTE 


Type EDIT 100 and press ENTER. 
Use the space bar to move the cursor between the letters N and Q in 
NOME. 


type 1CA. This instructs the computer to replace the next single 
character with A (one change a) 
Press ENTER to get out of EDIT mode 
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2 Deletion of character(s) Consider the line: 
100 PRINT "MY NAME IS IS JOHN.’ 


We have inadvertently typed the word IS twice. Corrections are’ 


A P P L E Byes Att eS a Ten et COEUR Ete Bat Po OTT BAEC vine EE Ete A GD AD EAE Va OE SOMEEDE EST Sa Tz 


Follow steps 1, 2, and 3 above 

Use the right arrow key to move to the space between the two IS’s. 
Press ESC and the K key three times to move to the space in front of 
JOHN. 

Press the right arrow key to copy the remainder of the quotation. 


Type LIST 100 and press RETURN 

Use cursor moves to place the cursor between the two IS’s Press 
the DEL key three times. 

Press RETURN to copy the corrected line. 


Type EDIT 100 and press ENTER 
Use the space bar to move the cursor until it is between the two 
IS’s. 


Type 3D and press ENTER to get out of edit mode 3D means 
delete the next three characters. 


3 Addition of character(s) Consider the line: 


100 PRINT "MY NAME IS JOHN." 
Suppose we intended to include JOHN's last name of SMITH 


1 Follow Steps 1, 2, and 3 above to place the cursor over the number 1 
in 100 
2 Use the right arrow key to move the cursor over the period after N 
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3 Press ESC and cursor to any blank space on the screen. Type 
SMITH with a blank in front of it. (Be careful doing this since the first 
key pressed causes no action other than termination of cursor 
mode ) 

4 Press ESC and cursor back over the period 

ro) Use the right arrow key to copy the rest of the line and then press 
RETURN 


Cursor to the period. 
Press the INSERT key six times to make room. 
Type SMITH preceded by a blank and press RETURN 


SUG rf ] R S 8 7] TORRE STE PR YL LI ETI PE NITE LO MRE CUO DGPS SLT TS A ETE I SE tol 
> 


| Type EDIT 100 and press ENTER 
2 Move the cursor between the N and the period 
3 Type | followed by a space and then SMITH 
4 Press ENTER to finish the edit mode 


The need to edit may first come fo our attention because of an error message 
given by the computer during an attempted RUN of the program The error message 
will give a brief indication of the type of error and the line in which it occurred You 
should consult the list of error messages (see Chapter 11) when you begin to write 
programs 

We include in this section a new BASIC keyword This keyword REM is used to 
designate a remark statement. The remark statement is used to identify parts of a 
program. This statement permits the programmer to enter any text desired on the same 
line with the REM keyword. The computer ignores the contents of the remark statement 
during program execution When the program is listed the remark statement appears in 
its normal line order We illustrate the use of this statement as follows 


100 REM -—- SQUARE 6-4-871 
110 PRINT "NUMBER','SQUARE" 
120 REM -—- READ NUMBER 
130 READ Ai 

140 REM —- SQUARE NUMBER 
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150 LETA2=Ai 2 

160 REM —- PRINT TABLE 
170 PRINT A1,A2 

180 DATA 11 

190 END 


EXERCISE SET 2.4 


1. The following exercises are intended to provide practice in screen editing. 


(a) Enter the following program line Then type NEW to clear the memory and 
recover the line in memory by copying it off the screen (PET and Apple 
only) 


100 PRINT "THIS IS AN EXERCISE IN COPYING.’ 


(6) Enter the following program lines and correct them as indicated by screen 
editing (or by using EDIT mode). 


100 LETC -—-A+8B 
(Place = sign after C) 


110 LET R = (A + (B — C)/D 
(Insert missing parenthesis after C.) 


120 PRINT "THE ANSWERR IS‘;A 
(Correct the spelling of "ANSWERR' and insert a blank after "IS" ) 


2. Insert appropriate REM statements in the following program in order to identify 
the purpose of the program and the major steps involved. 


110 INPUT PRICE 

120 DISCOUNT = .20 

130 TAX = .05 

140 NET = (PRICE * (1 — DISCOUNT)) * (1 + TAX) 
150 PRINT NET 


3 insert appropriate character strings to prompt for the input and identify the output 
in the following program: 


120 INPUT LONG 
130 INPUT WIDE 
140 AREA = LONG * WIDE 
150 PRINT AREA 
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Review 
We summarize the new terms and the new syntax introduced in this chapter 


STATEMENT NUMBER _ the number preceding a program insiruction This number 
normally determines the order of execution of the statement. (Section 2 1) 


VARIABLE asymbolic name for a memory location (Section 2.3) 


ARITHMETIC ASSIGNVMENT STATEMENT a statement in which a variable 
receives a value by assignment within the program The value received may result from 
the evaluation of combinations of other variables; that is, from a computation (Section 
23) 


RESERVED WORD aword that has special meaning in the BASIC language and is 
to be avoided in variable names. (Section 2 3) 


ARITHMETIC OPERATION _ one of the operations of addition, subtraction, multipli- 
cation, division, or exponentiation. (Section 2.5) 


HIERARCHY OF OPERATIONS _ a set of rules that dictates the order of arithmetic 
operations in a mathematical expression. (Section 2.5) 


OUTPUT PUNCTUATION = seincolons anid Commas used io Sack sulsui or ic 
arrange it in fields. (Section 2.6) 


SCREEN EDITING correction of BASIC statements by combinations of cursor 
control and copying. (Section 2.7) 


EDIT MODE a special mode of operation that permits the correction of errors in 
program statements (TRS-80) (Section 2.7) 


Basic SYNTAX 


LET a keyword designating that an assignment of a variable value will follow 
(Section 2 4) 


INPUT = a keyword indicating that a variable value will be entered at the keyboard 
(Seciion 2.4) 


READ a keyword indicating that a variable value will be found within the program. 


(Section 2 4) 
DATA akeyword preceding data values stored within the program. (Section 2 4) 
REM atkeyword preceding remarks internal to the program. (Section 2.7) 


NEW animmediate command used to clear the memory of program instructions and 
data. (Section 2 2) 


PREPARING 
A COMPLETE 
PROGRAM 


3.1 INTRODUCTION TO PREPARING A 


COMPLETE PROGRAM 


In this book our purpose is to help the reader develop the ability to use a computer as a 
problem-solving tool. This process—usually called programming—consists of two 
unique tasks. The first is the formulation of an unambiguous and logically correct 
procedure for solving a given problem, and the second is the translation of such a 
procedure into a form acceptable to a computer. The first of these tasks is far more 
challenging and intellectually demanding, while the second is more mechanical. Too 
often computer programming—and efforts to teach it—tend to concentrate on the 
second task. '‘A computer programmer is first and foremost a solver of problems '’* 
Developing the ability to use a computer as a problem-solving tool leads us to 
consider programming in a different context. The programming process becomes an 
opportunity to develop our skills in problem analysis. ‘'With the advent of computers, 
the task of constructing and debugging programs has provided an ideal domain for 
students to develop their problem-solving skills. '’t Therefore, we suggest that 
programming has value that extends beyond the solution of specific problems with a 


* Jean-Paul Tremblay and Richard D Bunt, An Introduction To Computer Science. An Algorithmic 
Approach. (New York: McGraw-Hill, 1979,)p. 34 

t Technology In Science Education—The Next Ten Years, a publication prepared for the 
National Science Foundation, 1979, p. 23. 
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3.2 


computer We hope to develop an approach to programming that will emphasize this 
value For the student of programming who lacks the prerequisite training in problem 
solving, ‘the approach and method of analysis are more significant than the details 
of the programming language.’’* 

In this chapter, we will suggest a procedure for problem-solving that is specifically 
adapted to the development of a computer program We have been influenced in this 
effort by the often-cited work of G. Polya — Polya suggesis a four-step sequence for 
solving problems: 


Step 7 Understand the problem, 
Step 2 Devise a plan, 

Slep 3 Carry out the plan, and 
Step 4 Look back 


Each of the steps outlined by Polya is relevant to the preparation of a computer 
program However, for purposes of program development, we will expand these four 
steps into seven steps. These seven steps, presented in Section 3.2, will more 
accurately reflect the problem-solving sequence as it applies to the development of a 
computer program. 


A PROBLEM-SOLVING MODEL 


We have ideniified two unique tasks for the programmer Here we attempt to place 
these tasks in the context of a general problem-solving model It is not important that 
you accept this specific model in all its details However, you should develop some 
systematic scheme for attacking a problem Such a scheme must defer coding until the 
solution procedure is at hand Too often we hasten to the coding phase without having 
developed a procedure for solving the problem 

Our model consists of the following seven steps: 

Step 7 Clarify the problem 


4 


Slep 7 (Polya) 


Step 2 Identify input and output. 


s 


Step 3 Develop a procedure for the solution of the 


| 
oroblem Step 2 (Polya) 


*Richard Conway, David Gries, and David Wortman, Structured Programming Using PL/1 and 
SP/K (Cambridge. Winthrop, 1977) preface by Wortman 

TG Polya, How To Solve it (Princeton, New Jersey. Princeton University Press, 1971), pp 
1-29 
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Step 4 Hand check the procedure and revise as 


necessary 
Step 5 Code the algorithm Step 3 (Polya) 
Step 6 Run the program with trial data, debugging as 

necessary 

Step 7 Refine and document the program. \Steo 4 (Polya) 


Steps 3 and 5 (algorithm development and coding) will receive the most attention in this 
text, since they are the tasks normally associated with programming. 


3.3 THE NATURE OF AN ALGORITHM 


Programming is a form of communication. Weinberg has written that ‘programming is 
at best a communication between two alien species,'’* the two species being human 
kind and computers But computer programming is also a form of communication 
between humans. The author of a program is communicating with those who will use 
the program and with those who will later modify it, which includes the author Such 
communication is a matter of major concern to those professionally involved in 
programming. 

We noted above that programming consists of two unique tasks, commonly 
called algorithm development and coding. An algorithm, which is a fundamental 
concept in computer science, can be informally described as a series of steps used to 
solve a problem. More formally, an algorithm has been defined as ‘‘a sequence of 
operations that, when executed, will produce a result and terminate in a finite amount of 
time."’t An algorithm is the product of a systematic analysis of the problem to be 
solved it is a document expressed in an English-like language that indicates the 
detailed operations to be followed in solving the given problem The algorithm its then 
coded or translated into a language that the computer understands, such as BASIC or 
FORTRAN Schematically, algorithm development can be depicted as follows: 


Problem Analysis Algorithm Coding ——-——~ Program 


In summary, an algorithm is a procedure for performing a particular task. The 
procedure must have the following characteristics: 


*Gerald M Weinberg, The Psychology Of Computer Programming, (New York’ Van Nostrand 
Reinhold, 1971), p. 214. 

¢ Schneider, Weingart, and Perlman, An Introduction to Programming and Problem Solving with 
Pascal, (New York: John Wiley & Sons, 1978), p 20 
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1 ‘Upon completing the execution of each step, we will always know the 
identity of the step fo be executed next. 


2 There is a single clearly defined starting point and one or more clearly 
defined stopping points. 


3 Inall cases, the algorithm will terminate after a finite number of steps. 


4 The algorithm is composed of primitives whose meaning is clear and 
unambiguous to the person or machine executing It.’'* 


Initial formulations or drafts of an algorithm usually do not conform to this 
definition, but an algorithm will have to be successively refined until it does conform. 
Primitive operations are ‘the most sophisticated and complex operations that the 
person or machine executing the algorithm is capable of directly performing and that 
do not have to be broken down into more basic steps "' T 

Since another purpose of this book is to assist the reader in developing the ability 
to code programs in the BASIC language, readers may wonder why we consider it 
necessary to use an algorithmic language as well. Several reasons exist. First of all, 
BASIC is not the only programming language and many readers of this book will 
eventually find themselves learning another language. The algorithmic approach is 
InNdepenuenil Of BASIC ana Every Gihe7 computer language {alhough # bcars ¢ 
resemblance to several of them). Once you develop the algorithmic technique, you can 
use il fo write programs that you may then code in languages other than BASIC. 
Secondly, the algorithmic language is designed to accommodate the human mental 
process rather than computer hardware. It avoids the syntactic restrictions of various 
programming languages, which tend to complicate the process of problem-solving. As 
we will soon see, our algorithmic language has some fairly strict rules, but it is flexible 
and easy to use. Algorithmic languages are superior to English (or French, for that 
matter) because ihey are less ambiguous. We have chosen to use an algorithmic 
language because it “represents a compromise between the representational 
extremes of natural language (the language we speak and write) and [a] 
programming language.’ + 

A summary of the elements of our algorithmic language, also called pseudocode, 
can be found in Appendix A Readers familiar with other computer languages will detect 
the influence of such languages as Pascal, C and PL/1 § 


“Schneider, et al., pp 22-23 

t Schneider, et al., p 22 

+ Schneider, et al, p. 31 

§The following works have significantly influenced our thinking on this matter and upon 
programming generally 
Brian W Kernighan andP J Plauger, The Elements of Programming Style, Second edition (New 
York. McGraw-Hill, 1978) 
Brian W Kernighan and P J Plauger, Software Tools, (Boston. Addison-Wesley, 1976). 
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Pseudocode Ifustrated 


PSEUDOCODE ILLUSTRATED 


To introduce our algorithmic language (which we will sometimes call AL for 
short), we solve a sample problem Suppose we are to write a program that computes 
and displays the value of the area of a circle. We first look at our problem-solving 
model 

Step 1 is concerned with problem clarification. Although the stated problem is 
relatively straightforward, a programmer may have to make decisions about such 
things as the source and nature of input data, the output desired, the degree of 
precision desired, and so on. In the case of professional programmers, such decisions 
will probably be made in consultation with eventual users of the program. In this simple 
problem, we might ask what information is needed to compute the area of a circle In 
the process of problem clarification, we find a formula that relates area to radius and 
the value of (3.14 —) That formula is, 


area =ar° 


where rrepresents the circle radius. It appears that our problem is to input values for a 
and the radius and then compute the area. Step 1 is complete when we understand the 
problem and select a name for our algorithm. 


PSEUDOCODE RULE 1 


The first statement in each algorithm both names it and marks its starting 
point. This name is written in upper case followed by a colon. 


We choose CIRCLE. as the first statement in our algorithm 

Step 2 in our model concerns identification of input and output quantities. This 
identification includes choosing names for variables representing those quantities. This 
step is frequently referred to as identifying knowns and unknowns in the solution of 
mathematical problems. Knowns are the input; unknowns are the output We recognize 


Gerald M Weinberg, 7he Psychology of Computer Programming, (New York: Van Nostrand 
Reinhold, 197 1) 

Kenneth L Bowles, Problem Solving Using Pascal, (New York: Springer-Verlag, 1977) 

Brian W Kernighan and Dennis W Ritchie, The C Programming Language, (Englewood Cliffs: 
Prentice-Hall, 1978). 
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that we must provide two knowns as input (aw and r) in order to compute the unknown 
area. We select variable names that suggest the quantities they represent (AREA, 
RADIUS, and Pl) 


PSEUDOCODE RULE 2 


All variables in a program must be declared as to type and size Variable 
names are written in upper case. 


In our algorithmic language, there are two types of variables: numeric and string 
The latter will be discussed in Chapter 8 For the present, we will limit ourselves to 
variables of standard size, temporarily ignoring size specifications. From the above, we 
can see that our program will require three variables, all numeric Our algorithm now 
looks like this: 


CIRCLE 
declare numeric AREA, RADIUS, PI 


Step 3 requires that we develop a procedure to solve the problem That is, we 
must arrive at the unknowns (output) by manipulating the knowns (input) in some 
fashion. As noted above, we must supply values for Pl and RADIUS. Thereafter, the 
program should display the value of the area. We establish the value of Pl, a constant in 
our program, by use of the algorithmic statement: set PI to 3.14. We generalize this with 
the following rule’ 


PSEUDOCODE RULE 3 


All consianis to be used in a program receive their value by a ‘'set to 
" statement. * 


In our algorithmic language, there is only one input instruction and one output 
instruction. 


*This statement will also be used to assign initial values to counters and accumulators 
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PSEUDOCODE RULE 4 


Input and output of variables is expressed generically, without reference to 
particular input/output devices. 


The format is 


get( VARIABLE) 
out(VARIABLE) 
put(‘‘MESSAGE"’) 


For example: 
get (RADIUS) 


means that the program should get a value for the variable RADIUS without indicating 
where that value should come from. Similarly, 


put(AREA) 


means to display the value of AREA on some output device to be specified later. In 
addition to displaying the values of variables, the put instruction can be used to display 
messages. We can cause a program to identify itself and give directions to its user by 
printing messages such as: 


put(‘‘ THIS PROGRAM COMPUTES AND DISPLAYS THE AREA OF A CIRCLE"’) 
put(“ENTER THE RADIUS’) 
put () 


Anything enclosed within quotation marks will be displayed on the output device 
exactly as written The last of the three put statements prints a blank line. 

In our algorithmic language both the get and put statements are generic; that is, 
they do not imply any specific input or output device. As a result, we are able to 
postpone making such device selections until we translate our pseudocode to BASIC. 

Combining all these statements, our program expressed in algorithmic language 
is as follows: 


CIRCLE: 

declare numeric AREA, RADIUS, Pl 

set Plto 3 14 

put(““ THIS PROGRAM COMPUTES AND DISPLAYS THE AREA OF A CIRCLE”) 
put () 

put (“ENTER RADIUS") 

get (RADIUS) 
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We now have all the known information (Pi and RADIUS) in memory and are ready to 
compute the area 


PSEUDOCODE RULE 5 


Variables will receive new values within the program by use of the 
arithmetic assignment statement (+—}. 


In our example, we write’ 
AREA <— PI * RADIUS * 2 


lf we were to read this statement out loud, we would say, “AREA gets the value of Pl 
times the RADIUS squared.” If it is more convenient, you can use the equal sign (=) in 
place of the replacement symbol («—) but the latter is preferred. Having computed the 
area, we are ready to display the result. 


put(‘'THE AREA JS’’,AREA) 


Note the combination of message and numeric output. 
To signify the end of the algorithm, we write '‘end.’’ 


PSEUDOCODE RULE 6 


The end of every program unit is marked by ‘‘end.”’ 


Finally, our algorithm is complete. 


CIRCLE: 

declare numeric AREA, RADIUS, PI 

set Pl to 3 14 

put(“*' THIS PROGRAM COMPUTES AND DISPLAYS THE AREA OF A CIRCLE’’) 
put() 

out(““ENTER RADIUS”) 

get(RADIUS) 

AREA <— PI * RADIUS * 2 

put(‘“THE AREA IS", AREA) 

end. 
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In Step 4 we indicated that it was necessary for us to handcheck the algorithm. 
That is, we should follow the steps in the algorithm and generate the output by hand 
calculation. As we follow the program, we note that the value of Pl has been set. A 
message about the program’s purpose has been displayed. The program then asks for 
a value for radius and accepts that value. Let us assume that we entered the value 5 
The program computes AREA as: 


AREA «—- 3.14 * 572 
AREA «— 78.5 


The program then displays a message, as follows: 
THE AREA IS 78 5 


and terminates We seem to be able to follow the program through and deliver the 
output. 

50 far our efforts in developing this small program are completely independent of 
all programming languages. At this point, we could decide to translate our algorithm 
into any programming language with which we were familiar (our Step 5). Because we 
are also concerned here with teaching readers to use the BASIC language, we will now 
address ourselves to the second part of the programming task, the translation of our 
algorithm into BASIC 


CODING THE ALGORITHM 


To accomplish Step 5 in our problem solution, we must translate the algorithmic 
representation of our program into BASIC It should be borne in mind that both the 
algorithmic version and the BASIC version to be created, are of equal importance The 
BASIC version can be executed but the algorithmic version helps us to understand what 
our program is supposed to do. We can consider our algorithmic version to be a 
blueprint for the BASIC program to be created, a written record of our problem-solving 
procedure This may seem to be a duplication of effort, but the independent value of 
both versions of a program will become apparent as we move on to more complicated 
problems. Next, we will take each line of our algorithm and transtate it into BASIC 
adding commentary as required. 


AL 
CIRCLE: 


BASIC 
100 REM--—CIRCLE 9-1-80 
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since BASIC does not provide syntax for naming programs (except when saving them 
on disk or tape), we use a REMARK statement to indicate the program's name. We 
also follow the practice of including the date when the program was written. As you 
may recall, anything may follow the characters REM in a BASIC statement. This feature 
provides us with a simple way of inserting an explanation into the program itself The 
contents of a REM statement are not scanned for syntactic validity. 


AL 

declare numeric AREA, RADIUS, P! 

BASIC 

110 REM INPUT VARIABLES: PI, RADIUS 
120 REM OUTPUT VARIABLES: AREA 


This instruction in our algorithm has no counterpart in the BASIC language All variables 
are numeric unless their names end with a dollar sign, in which case they are string 
variables. We translate the statement for documentation purposes again by using the 
REM statement. 


Ab 


set Pl to 3 14 
BASIC 
130 P!l=3.14 


In the BASIC language there is no separate syntax for initializing constants so we use 
the ordinary arithmetic assignment statement. We still prefer to use the different syntax 
in our algorithmic language because we believe that it enhances our understanding of 
the algorithm The next three statements all display information and can be treated as a 
group 


sut(“ THIS PROGRAM COMPUTES AND DISPLAYS THE AREA OF A CIRCLE") 
put() 
put(“ENTER RADIUS") 


BASIC 


140 PRINT "THIS PROGRAM COMPUTES AND DISPLAYS THE AREA OF 
A CIRCLE’ 

150 PRINT 

160 PRINT "ENTER RADIUS' 
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The translation here is rather straightforward. The middle statement merely prints a 
blank line. 

AL 

get(RADIUS) 


BASIC 

170 INPUT RADIUS 
By choosing to use the BASIC input statement, we have opted to retrieve the value of 
the radius from the keyboard. 


AL 
AREA «— PI! * RADIUS * 2 


BASIC 
180 AREA = PI * RADIUS ~ 2 


The translation here takes the form of a standard arithmetic assignment statement like 
those you have seen in the previous chapter 

AL 

put (“THE AREA JS"’,AREA) 

BASIC 

190 PRINT "THE AREA !S',AREA 


Here again the translation is simple 


AL 


end. 
BASIC 


200 END 


Our translation work has gone smoothly and now we can look at the BASIC 
version in its entirety: 
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100 REM---CIRCLE 9-1-80 

110 REM INPUT VARIABLES: PI, RADIUS 
120 REM OUTPUT VARIABLES: AREA 
130 Pl= 3.14 

140 PRINT "THIS PROGRAM COMPUTES AND DISPLAYS THE AREA OF 
A CIRCLE" 

150 PRINT 

160 PRINT "ENTER RADIUS" 

170 INPUT RADIUS 

180 AREA = PI * RADIUS ~ 2 

190 PRINT "THE AREA IS',AREA 

200 END 


We are now reaay for Step 6, which is to run the program. Arun with the trial data 
used earlier is shown: 


RUN 

THIS PROGRAM COMPUTES AND DISPLAYS THE AREA OF A CIRCLE 
ENTER RADIUS 

25 

THE AREA IS 78.5 


As a result of the agreement between this answer and the hand calculation plus the 
absence of error messages, we are reasonably certain that our program is working 
correctly. 


COMPLETING THE JOB— 
DOCUMENTATION 


Finally we are ready for Step 7—the refinement and documentation of our program. 
This example program is certainly of limited value, so we probably would not refine it 
further Documentation refers to the production of explanatory material that helps a 
user understand the program. If we follow the procedure of variable identification within 
the program, we have already accomnlished some of the documentation work Further 
use of REM statements may be appropriate in more complex programs It is helpful to 
conceive documentation as being of two types: internal and external. Documentation 
found within a program, is called internal documentation. Internal documentation 
usually takes the form of REM statements. But careful choice of variable names also 
contributes to internal documentation. 

External documentation is found outside the program, usually in the form of 
written explanatory material There are two types of external documentation, which we 


Ch. 3 


Exercise Set 3.1 


believe foster good programming habits: the cross-reference table and the 
variable list A cross-reference table is a list of variable names with the line numbers 
of the statements in which the variables are used. A cross-reference table for CIRCLE 
appears below. For a small program such as this one, a cross-reference table can be 
easily created by hand. In Appendix D we describe a BASIC program which will create a 
cross-reference table by reading and processing your program 


CROSS-REFERENCE TABLE 
AREA 180 190 
Pl 130 180 


RADIUS 170 180 


A variable list is a kind of program dictionary that defines each variable used in a 
program A variable list must be created by hand. Its contents may differ depending 
upon the programming language used and other factors. We consider the following 
approach to be a minimal one. You may find it useful to add other attributes to the list. 

Variable List for CIRCLE 

AREA _ The area of a circle to be computed by the program 

Pi A constant with the value 3.14. 


RADIUS A variable retrieved from the keyboard containing the value of the 
radius of a circle. 


EXERCISE SET 3.1 


1 Consider the completion of Step 1 (clarify the problem) and Step 2 (identify the 
input and output) for the following problems and list specific decisions you must 
make: 


(a) Write a program in algorithmic language that computes the volume of a 
sphere. 


(o) Write a program in algorithmic language that computes the area of a 
triangle. 


(c) Write a program in algorithmic language that computes the sales price of an 
item whose list price is reduced by 25 percent. 


2 Develop algorithms for the solutions of problems 1(a), 1(b), and 1(c) based on 
your work in problem 1 


3. Code the algorithms in problem 2 
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4. Complete the seven-step sequence begun in problem 1 by running and 
documenting the three programs. 


5 Translate the following pseudocode into BASIC: 


get(PRICE) data source is the program 

get(TAX, DISCOUNT) data source is the keyboard 
out(‘’ THE ANSWER IS”’, TOTAL) 

set RATE ta 0.05 

VOLUME <— PI * RADIUS * 2 * HEIGHT 

PRICE «(LIST — DISCOUNT) * TAXRATE 

put (PRICE DISCOUNT) 


6 Transiate the following algorithms to BASIC 


(a) 


Review 


TEMPERATURE 

declare numeric FTEMP, CTEMP 

put(‘‘THIS PROGRAM CONVERTS FAHRENHEIT TO CENTIGRADE’’) 
put(‘ENTER THE FAHRENHEIT TEMPERATURE’”’) 

get(FTEMP) 

CTEMP <— 5 * (FTEMP — 32)/9 

put(' THE CENTIGRADE TEMPERATURE IS” ,;CTEMP) 

end 


PRINCIPAL. 

declare numeric RTE, COMP, DEP, NBALANCE, YEARS 

put(“THIS PROGRAM COMPUTES THE BALANCE ON AN INTEREST 
DRAWING DEPOSIT"’) 

put( ‘ENTER DEPOSIT") 

get(DEP) 
put(“‘ENTER ANNUAL INTEREST RATE"’) 

get(RTE) 

put( ‘ENTER FREQUENCY OF COMPOUNDING PER YEAR’’) 
get(COMP) 

put(“ENTER YEARS ON DEPOSIT") 

get( YEARS) 

NBALANCE < DEP * (1+RTE/COMP)* (YEARS * COMP) 

put(‘' THE NEW BALANCE IS"’, NBALANCE) 

end 


We summarize the new terms and syntax introduced in this chapter 


ALGORITHM = asequence of primitive operations that will produce a result in a finite 
number of steps The algorithm is expressed in an English-like language (Section 3 3) 


Ch. 3 


Review 


PRIMITIVE OPERATION  asiep in an algorithm whose meaning is clear, unambigu- 
ous and ready for execution without further refinement. (Section 3.3) 


ALGORITHMIC LANGUAGE _ the language used to express an algorithm (Section 
3.3) 


PSEUDOCODE another name for an algorithmic language (Section 3.3 and 3 4) 


INTERNAL DOCUMENTATION ~ explanatory material entered within the text of a 
program through the use of remark statements (Section 3.6) 


EXTERNAL DOCUMENTATION ~ explanatory material developed by the program- 
mer to help a user understand and modify the program (Section 3 6) 


CROSS-REFERENCE TABLE a form of external documentation, which includes 
the names of all variables used in a program and the line numbers in which they occur 
(Section 3.6) 


VARIABLE LIST a formof external documentation that defines each variable used 
in the program (Section 3.6) 
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SIMPLE LOOPS 
= AND DECISIONS 


4.1 INTRODUCTION TO LOOPS 


4.2 


AND DECISIONS 


Although the computer is extremely fast, we would probably not see it in such 
widespread use if each step in a process had to be separately programmed For 
example, if a separate program had to be written to determine each customer account 
balance in a large business, the program size would soon become overwhelming. 
Fortunately, only the numerical entries differ from account to account. The process of 
arriving at a balance is the same for each account Once the process !s programmed it 
is only necessary to devise a method by which the program will repeat itself until ail 
accounts have been analyzed. Such an internal repetition process within a program is 
called a /joop Without loops to perform repetitive processes our computing ability 
would be severely limited. 


THE SIMPLE LOOP 


We wish to develop a program that accepts as input the shelf price of an item, adds 
sales tax, and computes a total price. The pseudocode might look like this. 
PSEUDOCODE 


PRICE: 
declare numeric SHELFP, TAXR, SALESP 
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set TAXRto 5 

get (SHELFP) 

SALESP <— SHELFP + SHELFP * TAXR / 100 
put (“SALES PRICE IS $"’ SALESP) 


end. 


We code this as follows: 


BASIC 


100 
110 
120 
130 
140 
150 
160 
170 
180 


REM —- PRICE--- 11-20-80 


REM INPUT VARIABLES: SHELFP 
REM LOCAL VARIABLES: TAXR 
REM OUTPUT VARIABLES: SALESP 
LET TAXR = 5 


INPUT SHELFP 


LET SALESP = SHELFP + SHELFP * TAXR / 100 
PRINT "SALES PRICE IS $'; SALESP 
END 


When we run this program with sample data we obtain 


? 25.40 


SALES PRICE IS $26.67 


If we want to use the computer as a sort of cash register at a checkout stand ina 
grocery store, we could modify this program to handle more than one item. We add a 


line 175: 
175 


GOTO 150 


Here we encounter a new keyword GOTO which has the effect of transferring 
control from line 175 to line 150. Upon entry of a second price the computer will add tax 
and print out the sales price for the new item and again ask for a price In fact, this 
process will continue indefinitely because we have produced an infinite loop from which 
we cannot escape The /oop portion of the modified program and iis pseudocode 


follow 
PSEUDOCODE BASIC 
loop 
get (SHELFP) 150 INPUT SHELFP 
end loop 175 GOTO 150 


The pseudocode for this new structure consists of the terms /oop and end loop 
However, our inability to escape from the loop is unsatisfactory. We should be able to 
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develop an instruction that will allow the program to terminate under the user's control. 
Let us change the program to provide a means of exiting the loop We show the 
essential parts of this change in pseudocode and in BASIC. 


PSEUDOCODE BASIC 
loop 
get (SHELFP) 150 INPUT SHELFP 


if (SHELFP <0) break § 155 IF SHELFP < 0 THEN 180 


end loop 175 GOTO 150 
180... 


We have introduced a pseudocode expression 
if (condition) [break] 

that gets us out of the loop Such an expression translates into BASIC as 
IF condition THEN line number 


The IF-THEN is BASIC syntax, which gives us a means of making a conditional 
transfer The GOTO introduced earlier is an unconditional transfer Study the relation 
between the pseudocode version and the BASIC version of the simple loop Note that 
the ‘‘end loop’”’ in pseudocode becomes a GOTO (unconditional transfer) The 
beginning of the simple loop is not specificaily translated into code, because in the 
coded version both the loop beginning and its end are specified in the GOTO 
statement. The beginning of the loop is the destination of the GOTO statement 

A tun of this program for three items might look like this: 


? 25.40 

SALES PRICE IS $26.67 
? 5.60 

SALES PRICE IS $5.88 
? 9.20 


SALES PRICE IS $9.66 
2-1 


We have managed to get out of the loop by entering a negative number. Note 
that statement 155 reads: 


155 IF SHELFP < 0 THEN 180 


This statement causes the computer to determine if the input value is less than 
zero. If itis less than zero, the program transfers control to line 180, which is the end 
statement. In the IF-THEN syntax a line number following THEN is interpreted as 
GOTO the line number If the price is not less than zero, the program control passes to 
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the next program statement (160 in this case) A negative value has been chosen to 
terminate the program since it is unlikely that the price of an item would be negative A 
value that causes a program to exit a loop is called a frailer value 

The program above illustrates what we will call a simple loop. The rules for 
writing such a loop in pseudocode are given here 


PSEUDOCODE RULE 7 


Simple loops will be delineated by the words loop and end loop. Between 
these markers are the pseudocode statements for the repetitive opera- 
tions. The simple loop must contain an additional structure called a loop 
exit. The parts are shown below 

loop 


loop contents 
loop exit 
end loop 


The loop exit can be anywhere in the loop depending upon the program 


= PSEUDOCODE RULE 8 


In pseudocode simple loops may be exited by use of the break 
statement— either as part of a logical if statement or standing alone. 
if (condition) [break] 
or 


[break] 


4.3 THE IF-THEN STATEMENT 


The IF-THEN statement used in the simple loop permits branching within a program 
depending upon the evaluation of a logical expression This capability is central to the 
information processing power of computers. Computer programs can contain instruc- 
tions that change the path through the program 
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Relational Operators 


IF-THEN statements are really compound statements containing two segments. 
(1) a logical expression and (2) a dependent statement. Consider the following 
example 


Logical Dependent 
Expression Statement 
155 IF SHELFP <0 THEN 180 
160 
180 END 


The logical expression involves a statement of the relative size of two quantities 
In the BASIC syntax the logical expression is found between the IF and THEN. Typical 
logical expressions are: 


WIDTH > LENGTH 
X°24+2*X<3 
Y>0O 

SUM = 0 


Note that every logical expression contains a relational operator (<, >, or =) A 
list of relational operators can be found in Section 4.4 In IF-THEN statements, the 
logical expression is evaluated in order to determine whether it is true or false. Only if 
ihe logical expression evaluates as true is the dependent statement executed In the 
case SHELFP < Qin our example program, control passed to statement 180 when 
— 1 was entered as SHELFP In the previous three entries the condition SHELFP <0 
evaluated as false and control passed to statement 160 (the next statement) 


RELATIONAL OPERATORS 


When we compare two variables and/or expressions, three results are possible: 


1 The two may be equal, 

2 The first may be greater than the second, or 

3 The second may be greater than the first. 

But while there are three alternatives for describing the relation between the two 
variables and/or expressions, a logical expression can only be evaluated in terms of 


two alternatives—true or false For this reason relational operators (>, =, <) are 
combined to describe the two alternatives. Operator combinations and their comple- 
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ments are shown in Table 4-1 We will see the need to understand these complements 
when we begin to implement decision structures later in the chapter 


Table 4-1 
Operators and Their Complements 


(perator Meaning Complement 


Less than 

Greater than 

Equal 

Not equal 

Less than or 
equa! to 

Greater than 
or equal to 


EXERCISE SET 4.1 


1. Translate the following pseudocode (fragments of programs) into BASIC 
(a) loop 
get (ACCT ,OBAL,PAYMENT) 
NBAL «— OBAL * (1 + SURCHG) — PAYMENT 
put (ACCT,OBAL,NBAL) 
OBAL <— NBAL 
end loop 


How would you describe this loop? What Is being done in the loop? 
(b) loop 
get (SCORE) 
if (SCORE < 0) break 


ADJSCORE «— SCORE + (100 — SCORE) / 3 
end loop 


~ FY UA PIL 


How wouid you Gescribe ns Wop? Watis Deng Gone? 


2. Write programs in pseudocode to accomplish the following. 


(a) Determine the discounted prices of items reduced by 25% using a simple 
loop. Allow for an exit from the loop. 


(b) Determine the new balance of accounts subject to additional monthly charges, interest, 
and reduction by payments Use a simple loop. 
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3. Identify the logical expression, relational operator, and the dependent statement 
in each of the following: 


(a) 150 1F Y <> 0 THEN 200 

(b) 1501F 3*X + 1> 10 THEN 300 
(c) 150IF X*3 <= 1 THEN 100 

(d) 1501F PAYM <.1* BAL THEN 200 


4 Translate the pseudocode fragments in problem 2 above into BASIC 


5. Write the correct pseudocode to accomplish the following. 
a) Transfer out of a loop when Y is greater than ten 
b) Transfer out of aloop when Y + 1 is greater than or equal to X 


( 

( 

(c) Transfer out of a loop when Nis greater than your age 

(d) Transfer out of a loop when the payment received (P) is at least $50 
( 


e) Transfer out of a loop if X is less than or equal to ten 


VARIATIONS ON LOOPS—COUNTERS 


We have considered terminating the simple loop by entry of a number (called a trailer 
value) in a given range. In the example in Section 4.4, this was accomplished by 
entering a negative price 

In some cases we may want the loop to repeat a specified number of times. To 
accomplish this we may enter a counter in the loop. Consider the following algorithm, 
which is designed to print the first nine integral multiples of five. An integral multiple is a 
product of the number and an integer 


MULTIPLE: 

declare numeric NUMBER, MULTIPLE 

set NUMBER to 0 

loop 
increase NUMBER by 1 
if (NUMBER = 10) break 
MULTIPLE «— 5 * NUMBER 
put(MUL TIPLE) 

end loop 

end 


The variable NUMBER serves as a counter Its value on any pass through the 
loop represents the number of times the loop has been executed. Note that the counter 
was set at an initial value of zero before the loop was entered. 


59 


60 


4.6 


Simple Loops and Decisions 


We have introduced a new bit of pseudocode above that involves the phrase 
‘increase by " The BASIC translation of such an expression will be an 
arithmetic assignment statement with the named variable (NUMBER in this case) 
appearing on both sides of the equal sign. The exact translation. 


PSEUDOCODE BASIC 
increase NUMBER by 1 LET NUMBER = NUMBER + 7 
The BASIC translation of the entire program would look like this: 


100 REM --— MULTIPLE 11-24-80 

110 REM INTERNAL VARIABLE: NUMBER 
120 REM $OUTPUT VARIABLE: MULTIPLE 
130 LET NUMBER = O 

140 LET NUMBER — NUMBER + 1 

150 IF NUMBER = 10 THEN 190 

160 LET MULTIPLE = 5 * NUMBER 

170 PRINT MULTIPLE 

180 GOTO 140 

190 END 


The use of counters in programs will aiways be accompanied by 4 process vi 
initialization of these counters The term initialize means to give a variable an initial 
value Under ordinary circumstances, counters and accumulators are inilialized by 
setting them to zero. Some computers will initialize all variables to zero automatically, 
but it is good practice to include the initialization step whether required or not. Thus, in 
our pseudocode version, whenever we use an “increase by  "' we will expect to 
find a ‘‘set to ‘earlier in the program In Section 4.6 we will write the rule for this 
new pseudocode syntax 

In the example program above we used the statement LET NUMBER = 
NUMBER + 1. Writing this statement without the LET would give the appearance of 
an equation that does not make sense, that is, 


NUMBER = NUMBER + 1 


It is for this reason that we have stressed that the equal sign in arithmetic assignment 
statements signifies assignment (in this case reassignment) of value to a variable. 


VARIATIONS ON LOOPS— 
ACCUMULATORS 


Accumulators are frequently used in loops to carry a running total. Consider the 
problem of summing a specified number of positive integers We write a program in 
pseudocode as follows: 
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INTEGERSUM: 
declare numeric LARGE, NUMBER, SUM 
put(“‘HOW MANY INTEGERS") 
get(LARGE) 
set NUMBER to O 
set SUM to 0 
loop 
increase NUMBER by 1 
increase SUM by NUMBER 
if (NUMBER = LARGE) break 
end loop 
put(“ THE SUM OF THE FIRST” LARGE “INTEGERS 1IS’’ SUM) 
end 


Note that this program treats SUM in much the same way as NUMBER. From the 
last section we recognize NUMBER as a counter The variable SUM is known as an 
accumulator It differs from a counter in that it is incremented by the value of a variable 
rather than a fixed amount each time the loop is executed The accumulator should be 
initialized just as the counter was in Section 4.5. We translate the pseudocode above 
into BASIC: 


100 REM -- INTEGERSUM 11-24-80 

110 REM INPUT VARIABLE: LARGE 

120 REM LOCAL VARIABLE: NUMBER 

130 REM OUTPUT VARIABLES: LARGE, SUM 
140 PRINT "HOW MANY INTEGERS’; 

150 INPUT LARGE 

160 LET NUMBER = 0 

170 LET SUM =O 

180 LET NUMBER = NUMBER + 1 

190 LET SUM = SUM + NUMBER 

200 IF NUMBER = LARGE THEN 220 

210 GOTO 180 

220 PRINT "THE SUM OF THE FIRST ';LARGE;" INTEGERS' 
230 PRINT ‘IS ';SUM;".’ 

240 END 


Again note that the BASIC translation of the “increase by syntax 
involves an expression with the quantity being incremented on both sides of the equal 
sign. The key lines here are 170 and 190. 


170 LET SUM =0 
190 LET SUM = SUM + NUMBER 
We should now recognize that the counter introduced in Section 4.5 is a special 


form of an accumulator The pseudocode for counters and accumulators is described 
here 
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PSEUDOCODE RULE 9 


Counters and accumulators will be incremented using the expression, 
increase VARIABLE by AMOUNT 
or the expression 


decrease VARIABLE by AMOUNT 


where AMOUNT will usually be the value 1 for counters 


One more example may serve to illustrate the functions of counters and 
accumulators To compute the arithmetic mean of a series of values we must compute 
ihe accumulated total of the values and divide that total by the number of values. 
Suppose we wish to enter the values to be averaged at the terminal If we are using 
grades in the range from 0 to 100, we could use any negative value or any value above 
100 for a trailer value. Remember that the trailer value serves to trigger the exit from the 
loon Consider the following program in pseudocode form 


AVERAGE: 
declare numeric NUMBER, SUM, AVERAGE, VLUE 
set NUMBER to 0 
set SUM to 0 
loop 
get (VLUE) 
if (VLUE < OQ) [break] 
increase NUMBER by 1 
increase SUM by VLUE 
end loop 
AVERAGE «— SUM / NUMBER 
put (AVERAGE) 
end 


This program translates into BASIC as follows: 


100 REM -- AVERAGE 11-30-80 

110 REM INPUT VARIABLE: VLUE 

120 REM LOCAL VARIABLES: NUMBER, SUM 
130 REM OUTPUT VARIABLE: AVERAGE 

140 LET NUMBER = 0 

150 LET SUM =O 

160 INPUT VLUE 

170 IF VLUE < O THEN 210 
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180 LET NUMBER — NUMBER + 1 
190 LET SUM = SUM + VLUE 

200 GOTO 160 

210 LET AVERAGE = SUM / NUMBER 
220 PRINT AVERAGE 

230 END 


Below is a sample run of the program 


223 
234 
245 
256 
267 
278 
?-9 
50.5 


Note that the last value of VLUE is not a “real’’ data value. It differs from all the 
other values in that it is not intended to be accumulated into the sum, but merely to 
serve as a trailer value or a flag indicating that there is no more data to be read For 
that reason, our program must test the value before, not after, itis added to the running 
total SUM In this program, any negative value will serve as trailer value 

The exits illustrated above were triggered by entering a number in a specified 
range This required the user to have knowledge of the program in order to select an 
appropriate trailer However, we could arrange to exit by printing instructions to the 
user As an example, consider a modification of our program AVERAGE In this 
modification the user enters the data at the keyboard. The size of the data set ts 
determined by the user terminating the data entry loop at the appropriate time. 


AVERAGE: 
declare numeric NUMBER, SUM, VLUE, AVERAGE 
set NUMBER to 0 
set SUM to 0 
loop 
put (‘NOW ENTER A VALUE"’) 
put (‘A NEGATIVE VALUE WILL TERMINATE DATA INPUT") 
get (VLUE) 
if (VLUE < QO) [break] 
increase SUM by VLUE 
increase NUMBER by 1 
end loop 
AVERAGE «— SUM / NUMBER 
put (AVERAGE) 
end 


63 


64 


Simple Loops and Decisions 


The addition of a single line of pseudocode has advised the user of the method 
of terminating the program. Some precautions are necessary to avoid accidental 
termination More careful methods of screening responses may be necessary For 
example, 99 can not serve as a trailer value if the range of expected input values is 
from 1 to 100. So too, any negative value cannot be interpreted as an end of data 
trailer if the range of expected input values runs from — 100 to 100 In this case any 
value less than — 100 can serve as a trailer or flag value 


EXERCISE SET 4.2 


1 Write programs in pseudocode to accomplish the following 


(a) Generate the first twelve integral multiples of 3, thatis, 3, 6, , 36, uSiINg a 
simple loop 


(b} Generate the first NV integral multiples of X, where NV and X are positive 
integers to be entered at the keyboard This is a generalization of the 
program requested in problem 1(a) 


(c) Generate the course averages for students each of whom has taken four 
examinations of equal weight. Use the number 9999 as a trailer value. 


(d) Modify example program PRICE (Section 4.2). The modified program 
should do the following 


(1) Print the shelf price of each item without adding tax. 
(2) Keep arunning total of the shelf prices 


(3) Allow for a conditional transfer from the loop upon eniry of a trailer 
value. 


(4) Total the shelf prices, add tax, and determine a total price. 
(5) Output the number of items purchased, the total! shelf price, the total 
tax, and the total price. 
2 Convert each of the pseudocode programs above into BASIC 


3 Convert the following pseudocode (program fragments) into BASIC 
(a) put (“ENTER MARK FOR EACH COURSE USING THE CODE.”’) 


put (‘A = 4") 
put (‘B = 3"’) 
out ('C = 2"’) 
put ('D = 1") 
put ("“F = 0") 


put ("'TO STOP ENTER A NEGATIVE NUMBER”) 
set GVLUE to 0 
set TCRED to 0 
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loop 


get (MARK) 

if (MARK < 0) break 

get (CREDIT) 

increase GVLUE by MARK * CREDIT 
increase TCRED by CREDIT 


end loop 

GPA < GVLUE / TCRED 

out (““GRADE POINT AVERAGE IS'"' GPA) 
get (NS) 

loop 


set TNUM to 0 
set TMARK to 0 
set GSUM to 0 
set NBR to 0 
loop 
get (MARK) 
if (MARK < 0} break 
increase TNUM by 1 
increase TMARK by MARK 
end loop 
AVE <— TMARK / TNUM 
put (AVE) 
increase GSUM by AVE 
increase NBR by 1 
if (NBR = NS) break 


end loop 
CLAVE «<— GSUM / NBR 
put (CLAVE) 


Identify the counters and accumulators in problem 3(b) 


Construct the additional pseudocode to make complete programs of the 
fragments in problem 3. 


4.7 DECISION STRUCTURES— 


SINGLE ALTERNATIVE 


One factor that contributes to the utility of computers is their ability to perform different 
tasks depending upon specific conditions. For example, it is common for a program to 
perform a logical test and, as a result, select one of several alternative courses of 
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action Those parts of programs, which perform such steps, are commonly called 
decision structures or control structures because they govern the flow of control 
within a program. They are also the most common locus of confusion and error within a 
program. All computer languages provide some facility for decision structures; but 
some provide a variety of well-designed structures while others provide only a few 
awkward ones. Unfortunately, BASIC is in the latter category. For that reason we 
present some basic generic decision siruciures in our algorithmic language and 
demonstrate how they can be translated into BASIC. 

While we have stressed using the IF-THEN statement to terminate a simple loop, 
we will probably find it used more frequently to select a particular path within the 
program To understand its use in this manner we introduce some new terminology 


Single Alternative Decision Structure 


A program segment that causes a group of statements to be executed only 
if a certain condition exists 


We introduced single alternative decision structures at the end of Section 4 3. At 
that point we did not show their relation to the remainder of a program A single 
alternative decision structure in a real-life situation might serve as an example. 
Suppose you receive these instructions: ‘'On your way home, stop at the pizza parlor If 
it is open, bring home a large pepperoni pizza and a pint oT tossed saiad. 

No alternative action has been specified You would assume that if the pizza 
parlor is closed, you will proceed home in the normal manner You would also assume 
that after buying the pizza (if the parlor is open) you are to proceed home in the normal 
manner Buying the pizza and the salad is the single alternative that delays your 
movement home. We can represent such a siructure in the following manner 


if (pizza parlor is open) 
{buy a large pepperoni pizza 
buy a pint of tossed salad] 
continue home 


(task if condition is true) 


Although this is the most natural way to consider the problem, the BASIC syntax 
we are using does not support this structure {at least without iniroducing multiple 
statemenis on a line). Recall that we can use a transfer in conjunction with the fF-THEN 
siatement lf our logical condition is false we need to transfer over the true tasks. But 
the transfer occurs only if the logical condition is true Thus, we need to use the 
complement of the original relational operator in the logical expression to effect the 
oroper transfer {ff BASIC had a larger vocabulary, we might be able to make the 
following translation: 


100 IF PIZZA PARLOR IS NOT OPEN THEN 130 
110 BUY ALARGE PEPPERONI PIZZA 

120 BUY A PINT OF TOSSED SALAD 

130 CONTINUE HOME 
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Assuming that we could execute such a program, the fragment above should do 
the job But we have had to change the logical condition The logical condition “PIZZA 
PARLOR IS NOT OPEN" is the complement of ‘PIZZA PARLOR IS OPEN" We are 
suggesting that the more logical order, in which the original true tasks follow the 
IF-THEN, can be retained by choosing the complement of the relational operator 

We have encountered the first case in which the BASIC translation is not a 
straightforward conversion of the algorithmic representation We will tolerate this 
inconvenience in coding because other structured languages, as well as advanced 
versions of BASIC, do permit a more literal translation of the structure. 


PSEUDOCODE RULE 10 


Single alternative decision structures will be indicated by one of the 
following: 


if (condition) [statement] 
or 
if (condition) 


block of statements 


| 


When a task consists of more than one statement, the entire task is 
enclosed within a pair of square brackets. Single statement tasks may be 
so enclosed if you wish 


Consider another example. At a certain point in a program, if the variable X is 
greater than zero, we are to Set the variable Y equal to zero and increment the counter 
N by one. We may write: 


PSEUDOCODE BASIC 


if (X > 0) 200 IF X <= 0 THEN 230 
Yo 210 LETY=0O 
N<+N + 1 220 LETN=N-+ 1 
continue 230 (NEXT INSTRUCTION) 


The complement of > has been used in the logical expression in the program. 
There is another case in which the more logical order may be retained If the true 
tasks consist of a single instruction, then we may write: 
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if (logical condition) [true task] 


and translate this almost literally Consider the following examples: 


1 PSEUDOCODE 
if (X > 0) [put (“POSITIVE”’}] 


BASIC 
200 IF X > O THEN PRINT 'POSITIVE' 


2 PSEUDOCODE 
if (X < Y){Z<-X + Y] 


BASIC 
200 IFX< ¥Y THENLETZ=X-+ Y 


3 PSEUDOCODE 
if (AREA > 0) [put (AREA)} 


BASIC 
200 iF AREA > 0 THEN PRINT AREA 


4 PSEUDOCODE 
if (A < B) 
lif (B < C)] 
[L +— Al 


BASIC 
200 iF A< B THENIF B < C THENLETL=A 


In each case, line 200 contains the entire single alternative decision structure. 
The correct relational operator is used (not its complement) Additional true tasks may 
be added as multiple statements providing the permitted line length is not exceeded. 
Multiple statements may be placed on a single line providing the proper symbol of 
separation is used This symbol is the colon. For example, we may write 


. 
ora Tanti a ala 


Ail tivee instucions will OE Executed in ihe Oraer written. fy On| Of |) INSWuCcONsS, such 
as PRINT X, is an lF-THEN statement, the subsequent instructions on the line will be 
executed only if the logical expression evaluates to true For example, consider the 


following: 
120 IF X > O THEN PRINT X: PRINT Y: PRINT Z 


Suppose X = — 71 Then the program would not execute PRINT X Furthermore, 
the instructions PRINT Y¥ and PRINT Z will not be executed However, if X = 1 {or any 
positive number) X, Y, and Z will all be printed There are three frue tasks. 
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4.8 


Decision Structures— Double Alternatives 


Consider the following line of BASIC. 
200 IF X > O THEN PRINT 'POSITIVE': LET Q = 1 


The true task in this structure consists of the statements PRINT ‘‘POSITIVE”’ and, 
LET Q = 1. They constitute a block of statements that will be treated as a unit. Both or 
neither will be executed. 


DECISION STRUCTURES— 
DOUBLE ALTERNATIVES 


The double alternative decision structure allows a second set of tasks to be 
introduced. This structure is defined as follows: 


Double Alternative Decision Structure 


A program segment that causes one group of statements to be executed if 
a certain condition is ttue A second group of statements is executed if the 
condition is false. 


Returning to our example, suppose we receive these instructions: ‘‘On your way 
home stop at the pizza parlor and buy a large pepperoni pizza and a pint of tossed 
salad. If the pizza parlor is closed, get a frozen pizza and a head of lettuce at the 
grocery store "' 

We may represent our alternatives as follows: 


if (pIZza parlor is open) 


-. true 
[buy a large pepperoni pizza task 
buy a pint of tossed salad] 
else 
[go to the grocery store false 
buy a frozen pizza task 


buy a head of lettuce] 
continue home 


We can partially solve the problem of programming these instructions by taking 
the complement of the relational operator as before However, we must be careful not 
to stop at both the pizza parlor and the grocery store. We need an unconditional 
transfer to our route home once we have completed our business at the pizza parlor. 
Consider the following. 


100 IF PIZZA PARLOR IS NOT OPEN THEN 140 
110 BUY ALARGE PEPPERONI PIZZA 

120 BUY A PINT OF TOSSED SALAD 

130 GOTO 170 
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140 GOTO THE GROCERY STORE 
150 BUY A FROZEN PIZZA 

160 BUY A HEAD OF LETTUCE 
170 CONTINUE HOME 


Line 130 is very important. It is the unconditional transfer referred to in Section 
4 2. lt assures that we buy only one pizza 


PSEUDOCODE RULE 11 


Double alternative decision structures will be indicated by the following 
pseudocode. 


if (condition) 
| 


true task 
| 

else 
{ 
false task 


7 


Whenever the true task and/or the false task consists of more than a 
single statement, those statements must be grouped together by enclosing 
them within a pair of square brackeis Tasks consisting of single 
statements may also be so enclosed if you wish 


Consider an example involving variables At a certain point in our program we 
test X. If itis less than zero, we increment it by one If itis greater than or equal to zero, 
we decrement it by one and increment Y by one We write: 


PSEUDOCODE BASIC 


if (X <Q) 200 IF X >= 0 THEN 230 
[IX<X+ I] 210 LETX=X+ i 
220 GOTO 250 
else 
[X<—X — ] 230 LET X =X — 1 
Y—Y+4+ ] 240 LET Y=Y +1 


250 (NEXT INSTRUCTION) 
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As with single alternative decision structures, it may be possible to retain the 
more logical order without inverting the relational operator. We rewrite the problem 
above as follows: 


200 IF X < O THEN LET X = X + 1: GOTO 230 
210 LETX=X-— 1 

220 LETY=—Y+1 

230 (NEXT INSTRUCTION) 


Note the transfer over the false task. This technique is limited to cases where the 
true tasks can be fitted on a single line with an unconditional transfer 


EXERCISE SET 4.3 


| Convert the following statements to pseudocode: 
(a) Compare Y to L. If Yis greater than L, then let L take on the value of Y 
(b) Compare X to 0. If Xis greater than Q, then add X to the accumulator 7 and 
increment K by 1 
(c) Compare X to O. If X is less than 0, then add X to the accumulator S and 
increment NV by 1. Otherwise, decrement NV by 1 


(d) Compare X1 to X2. If X1 is greater than X2, then interchange the values of 
Xi and X2 (Hint. This process is an essential step in ordering numbers. 
You will need to introduce an additional variable to accomplish the 
interchange ) 


2. Code the algorithms developed in problem 1 


3. Convert the following pseudocode to BASIC 
(a) if(PAYM> 1* BAL) 
[put (THANK YOU"’)] 
else 
fout (“INSUFFICIENT PAYMENT’’)| 
(b) if (X > B) 
[X<-X — 1 
B+B+ J] 
(c) if (X > 0) 
[Y — 1 
Z+Q 
else 
[XX + ]] 


4. Identify the true task(s) and false task{s) in each of the exercises in problem 3 
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Review 
We summarize the new terms and the BASIC syntax introduced in this chapter. 


DECISION STRUCTURE program segments containing alternate paths. The path 
taken is determined by the evaluation of a logical expression that heads the structure 
(Section 4.7) 


SIMPLE LOOP a series of instructions that is repeated by placement of a 
combination of conditional IF-THEN and unconditional GOTO transfers. (Section 
4 2) 


BaSIC SYNTAX 


GOTO (line number) a BASIC keyword that causes an unconditional transfer to the 
designated line number. (Section 4.2) 


{F-THEN BASIC keywords that connect a logical expression with a dependent 
BASIC statement. When the logical expression evaluates as true, the dependent 
statement is executed. When the logical expression evaluates as false, control passes 
to the next statement in the program. The IF-THEN statement is written as follows: 


PEt em ERE A eet ant atat 4 1Onah; 
ir lOGiCal SXPTESSION tric GEpenacent siatemcni (Scciion 4 


o.1 


= INDEXED LOOPS 


INTRODUCTION TO INDEXED 
LOOPS 


The conditional transfer discussed in Chapter 4 provides a means for terminating a 


simple loop. The indexed loop can be considered a more sophisticated structure for 


handling repetitive processes within a program. It has certain characteristics, a built-in 
counter and automatic termination, that make it very useful in many applications 

The indexed loop is more complex than other structures we have encountered 
so far. To specify the behavior of the loop we introduce a variable called the loop 
index (or loop control variable) and three values of that variable The three values 
are the initial value of the loop index (value when the loop is first entered), the final 
value of the loop index and the step value (the amount by which the index is 
incremented or decremented on each pass through the loop). We introduce the loop 
structure in pseudocode first 


PSEUDOCODE RULE 12 


Indexed loops will be specified by the following structure: 
loop while INDEX goes from START to STOP by STEP 


loop contents 


end loop 
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The pseudocode above displays the loop index and the three values critical to 
the loop control. Several instructions are implied in the indexed loop. When the loop is 
entered, INDEX receives the value of START If START is already greater than STOP, 
the loop contents are not executed at all and execution continues with the first 
statement after the end loop statement. When ‘‘end loop" is encountered, the value of 
STEP is added to INDEX. The value of INDEX is then compared with the value of STOP 
(the final value of the loop index). If the value of the index exceeds the specified end 
value (or is less than it in case the loop index proceeds from high to low values), 
execution of the loop terminates and the statement after end loop is executed 
Otherwise, execution of the loop contents is repeated 

As an example, suppose we encounter the following loop in pseudocode 


loop while INDEX goes from 1 to 3 by .5 
put (INDEX) 
end loop 


Upon eniry into this loop, INDEX will be assigned its starting value of 1 The 
pseudocode ‘‘put (INDEX)”’ will then result in the output of the value 1 When “end 
loop’ is encountered INDEX will be increased by .5 and will then have the value of 15 
Since 15 is not greater than 3 (the final value of INDEX) we will repeat the loop 


en ee ee Pay 4 a" pant £ v 
Comets, Which Cail for the Guipul of ihe current value of INDEX 4 5} We then 


increment 1.5 by 5 to get 2, compare 2 with 3 and repeat the loop contents. This 
process continues until INDEX receives the value 3.5 at the end of the loop. Exit of the 
loop then occurs. The output of this loop is the series of numbers: 


1,1.5,2,2.5, 3 
The result above could have been obtained with the following simple loop: 


set INDEX to 1 
loop 
put (INDEX) 
increase INDEX by .5 
if (INDEX > 3) break 
end loop 


The corresponding simple loop requires six lines of pseudocode Furthermore, 
its operation ts iess clear than the indexed loop. 


THE INDEXED LOOP IN BASIC 


Consider again the example above: 


loop while INDEX goes from 1 to 3 by 5 
put (INDEX) 
end loop 
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The Indexed Loop in Basic 


We translate the header statement in the loop as follows: 
140 FOR INDEX = 1TO3 STEP .5 

The terminator statement translates into. 
160 NEXT INDEX 

Here we see a new keyword pattern 
FOR...TO...STEP 

and a new keyword 
NEXT 


The indexed loop in BASIC is called a FOR-NEXT loop, naming the words that 
serve as its boundaries. The number of times the FOR-NEXT loop is executed is 
determined by the values of START, STOP and STEP We may write an equation for this 
number as follows: 


Number of repetitions = (STOP — START) / STEP + 1 


lf the value calculated for the number of repetitions is not an integer, ignore the decimal 
part of the value. 

As we shall see later, this is the maximum number of repetitions {tis possible to 
include a conditional transfer in the loop, which causes premature exit from the loop. 

It is permissible to omit the reference to a step value in the FOR-NEXT loop. 
Doing so causes the computer to use a value of one as the step value Values assumed 
for unspecified quantities are referred to as default values. We say that the default step 
size is one If the loop index is to be incremented by one, we need not specify a step 
size Default values are for the convenience of the programmer and reflect most 
commonly used values. 

several precautions are necessary when using FOR-NEXT loops: 


1 FOR-NEXT loops should be entered at the top; that is, at the FOR... TO 
... STEP statement. This means that transfers into the interior of a loop, from 
either above or below the loop, should be avoided Doing so would bypass the 
step that initializes the loop counter Some dialects of BASIC may permit such a 
transfer, but the results will be unpredictable. The PET, the TRS-80 and the Apple 
will permit the transfer, but an error message will be generated when the NEXT 
statement is encountered because the associated FOR statement had not been 
previously encountered. 


2 Operations that alter the value of the loop index within a loop should also be 
avoided Many dialects of BASIC permit such an action, but the results are 
unpredictable. The PET, the TRS-80 and the Apple are in this category This type 
of procedure may well create an infinite loop. Here is a sample program to 
illustrate 
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140 FORI=1TO10 
150 PRINT! 

160 LETI=i- 1 
170 NEXT I 


Here statement 160 modifies the value of the loop index thus producing an infinite 
loop. 


3 Finally, care should be taken so that a FOR-NEXT loop is not entered 
accidentally American National Standards Institute specifications for minimal! 
BASIC indicate that a loop should not be entered at all if the beginning value of a 
loop index is already past the ending value of the loop index as shown: 


200 FORI=4T01 


Most versions of BASIC comply with this specification and such a loop will not be 
entered at all However, the PET, the TRS-80, and the Apple will execute such a 
loop once. In this respect these dialects of BASIC provide a loop that is much like 
the FORTRAN DO loop. An IF ... THEN statement just before the header 
statement can prevent accidental entry into the indexed !oop 


9.3 USING THE LOOP INDEX 


There are numerous situations in which we need to count the number of repetitions of a 
loop or we need to identify data by its order of presentation. The loop index can serve 
this purpose without introducing an additional counter as we were required to do with 
the simple loop. As an example, consider the following problem 

Write a program that will read six successive yearly values of population from a 
data line and print these values along with an identifying year The data starts in 1973. 
We display a pseudocode solution first. 


POPULATION 

declare numeric YEAR, POPULATION 

put (“YEAR”’, “POPULATION") 

ioop while YEAR gues trom 1973 to 197 
get (POPULATION) 
put (YEAR, POPULATION) 

end loop 

end. 


a 
O 


Converted to code this becomes: 
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100 
110 
120 
130 
140 
150 
160 
170 
180 
190 


Using the Loop index 


REM -- POPULATION 12/5/80 

REM —- INPUT VARIABLE: P 

REM -- OUTPUT VARIABLES: YEAR, P 

PRINT ‘YEAR’, "POPULATION' 

FOR YEAR = 1973 TO 1978 

READ P 

PRINT YEAR, P 

NEXT YEAR 

DATA 49500, 50100, 51210, 52225, 51875, 51760 
END 


The program output appears below 


YEAR POPULATION 
1973 49500 
1974 50100 
1975 51210 
1976 52225 
1977 51875 
1978 51760 


The loop index is also available to serve as an independent variable in an 
equation Consider the following problem. 

Write a program that generates points on the curve Y = 2* X72 + X — 3 from 
X = 1to X = 7 Pseudocode and BASIC versions are shown below. 


X-Y PAIRS: 

declare numeric X, Y 

put (‘‘X-VALUE", ‘'Y-VALUE’’) 

loop while X goes from 1 to 7 
Y2*X°24X-3 


put (X, Y) 
end loep 
end. 
100 REM —-— X-Y PAIRS 
110 REM -- OUTPUT VARIABLES: I, Y 
120 PRINT "X-VALUE", "Y-VALUE'" 
130 FORX=1TO7 
140 LETY=2*X°2+X-—-3 
150 PRINT X,Y 
160 NEXT X 


170 


END 
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The output is’ 


X-VALUE Y-VALUE 
1 O 

7 

18 

33 

52 

75 

102 


NOOO S WN 


lf we were to plot these points on a set of X- Y axes, we would see the shape of 
the curve Y = 2* X72 4 X — 3in the interval from X = 1 to X =7 


SUMMATION NOTATION 


Another use of the FOR-NEXT loop is to translate mathematical summation 
notation into calculated values. We frequently see expressions such as 


LX 


This is mathematical notation in which the Greek letter sigma (2) means add. The 
combination of sigma with a variable means add together all indicated values of the 
variable X Suppose X represents the scores a student receives on tests in a course 
Then 2X designates the total score on all tests taken. We could designate the total as 
XSUM. 

Let us generate the average (or mean) score on a set of tests That is, we will 
evaluate the expression 


XMEAN = XSUM / NTEST 


where NTEST is the number of tests taken. The following pseudocode indicates a 
possible solution to the problem 


MEANGRADE 
declare numeric |, %, XSUM, MMEAN NTEST 
set XSUM = 0 
get (NTEST) 
loop while | goes from 1 to NTEST 
get (X) 
increase XSUM by X 
end loop 
XMEAN <— XSUM / NTEST 
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put (‘AVERAGE GRADE IS "' XMEAN) 


end 


This translates into: 


100 
110 
120 
130 
140 
145 
150 
160 
170 
180 
190 
200 
210 
220 


Note 


REM --— MEANGRADE 12/5/80 

REM -- INPUT VARIABLES: X, NTEST 
REM -~ LOCAL VARIABLES: I, XSUM 
REM -- OUTPUT VARIABLE: XMEAN 
LET XSUM = O 

READ NTEST 

FORI = 1TONTEST 

READ X 

LET XSUM = XSUM + X 

NEXT | 

LET XMEAN = XSUM / NTEST 

PRINT "AVERAGE GRADE IS ';XMEAN 
DATA 5,70,84,92,81,76 

END 


that the summation of X occurs in line 170 through the use of the 


accumulator XSUM You should enter and RUN this program 
In some cases the permitted values to be summed over are indicated explicitly on 
the summation sign. For example, 


fal 


means add together all values obtained when truns from 1 to 5. Thus, 


5 


> §=14243444+5=15 


f= 1 


The following pseudocode fragment will express this result. 


set ISUM to O 

loop while | goes from 1 to 5 
increase ISUM by | 

end loop 

put (ISUM) 


You will often see loop indices given as the letters /, J, K, L, M, or N. This follows 
standard mathematical usage. These loop indices usually assume only integral (whole 
number) values. The FORTRAN language has taken advantage of this usage by 
requiring a class of integer variables to have names beginning with one of these 


letters 
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EXERCISE SET 5.1 


| 


Write header and terminator statements in BASIC for indexed loops with the 
following characteristics: 


Loop Index Start Stop Step 


COUNT 2 50 2 
J 10 —5 — 1 
NUMBER rs) 10 0.2 
| 2 49 2 


Determine the number of times each of these loops will be executed. 


Construct pseudocode fragments to solve the following problems: 


(a) Read the balance of 100 different accounts receivable that are entered on 
data lines. Print out a number that identifies each account by its place in the 
data list, print out each account balance, and accumulate the total 
accounts receivable for the 100 accounts 


(b) Sum all the integers from 1 to 25 inclusive. 


(c) Print out the first twelve multiples of 5 (a multiple of a number is a product of 
the number and an integer). First multiples of a number are formed by 
multiplying the number by one, then by two, etc 


(d) Find the average of all even numbers from 16 to 38 inclusive. 


Convert the pseudocode fragments in problem 2 to BASIC program fragments 


Write BASIC program fragments that will evaluate the dependent variable Y for 
the specified values of X in the following equations Print the X and Y pairs in 
columns 


(a) VY=3*X4+7 (X ranges from 1 to 7 in unit steps) 
(bob) Y=X-4 (X ranges from —4 to 5 in steps of .5) 
(Cc) Y=X°2-3 (X ranges from —8 to 8 in steps of 2) 


Write FOR-NEXT loops to evaluate the dependent variable in the following 
equations: 


(a) Y=2X°2 


where the values of X are on data lines. Assume there are eleven values of X. 


(b) Y=) 1°3 
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(c) Y= i-2 


6 
{=1 
Write program fragments to accomplish the following: 
(a) Print the integers from 7 to —3 starting with 7 


(b) Print every fifth year starting with 1900 and ending with 1980 


Enter and RUN the following program fragments. 
(a) 100 FORI=1TO5 

110 PRINT I 

120 NEXT! 

130 PRINT I 


(b) 100 FORI=2TO3STEP.2 
110 PRINT! 
120 NEXT! 
130 PRINT| 


Observe the final value of the loop index (printed by line 130) 


Verify the validity of the following relation: 


>_i°2=n*(n + 1)*(2n + 1)/6 
in] 


for values of n from 1 to 7 


Hint: Use a loop to evaluate the left side. Program the equation on the right side 
for each n and compare results. 


9.0 LOOPS WITH CONDITIONAL 


TRANSFERS 


In certain applications, it may be necessary to transfer out of a FOR-NEXT loop before 
the loop index reaches the end value. For example, the loop may be accumulating a 
sum whose value is to be used to terminate the loop Or we may be using the loop to 
read and print data sets of variable length that are terminated by a trailer value. 


As an example consider the following problem. We are to develop pseudocode 


that reads account balances, determines the number of accounts, and accumulates 
the balance payable. Assume a negative number is used as a trailer. The total number 
of accounts payable will not exceed 100. Here ts a solution. 
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ACCTPAYABLE 
declare numeric BAL, TBAL, | 
set TBAL to 0 
loop while | goes from 1 to 100 
get (BAL) 
if (BAL < 0) break 
increase TBAL by BAL 
end loop 
put (I— 1," ACCOUNTS WITH A TOTAL BALANCE OF ”’ TBAL) 


Can you see why / — 1 is the number of accounts payable rather than /? 


LOOPS TO CALCULATE AREA 


We consider one problem that illustrates the power of the FOR-NEXT loop in 
numerical analysis. Suppose we are asked to evaluate the area under a curve (a typical 
problem in introductory calculus). To illustrate the technique of a computer solution we 
will select an area Tor which ihe vaiue can be Getermined by elenientary Meats. 

Consider the equation Y = 5 * X + 2. This equation can be represented by the 
Straight line in Figure 5. 1. 

lf we are asked to find the area under the curve between X = 1 and X = 5, we 
would be concerned with the shaded area in the Figure 5 2. 

That area is a trapezoid of height 4 and average base 35 Thus, the area must 


Figure 5.1 
Equation Y = .5* X + 2 


<= 


= 


NK Ww 
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Figure 5 2 
Area Under Curve Between X = 1 and X = 5 


y 


1 2 3 4 5 6 7 


be (4)(3.5) = 14 units. To evaluate this by computer, we can subdivide the area into 
rectangles as shown in Figure 5.3 


The area of each rectangle is obtained by multiplying its base width (1) by its 
height. But the height is the value of Y corresponding to the left corner of the rectangle 
This method would yield: 

Area = 1(2.5) + 1(3) + 1(3.5) + 1(4) 
=254+34354 4 = 13 square units 


The discrepancy between this and the correct answer (14) results from the 
neglect of the small triangles shaded in Figure 5.3. We could reduce this error by using 


Figure 5.3 
Area Subdivided into Rectangles 1 Unit Wide 


y 
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narrower rectangles. Suppose we choose the rectangles to be .5 units wide. Since the 
arithmetic is getting complicated, we can write a program to do the calculation of the 
new area. 


AREA 
declare numeric |, X, HEIGHT, WIDTH, RECT, AREA 
set AREA to O 
set WIDTH to 5 
loop while | goes from 1 to 8 
X<~ 1+ (l— 1) * WIDTH 
HEIGHT — 5*X +42 
RECT <— HEIGHT * WIDTH 
increase AREA by RECT 
end loop 
put (“APPROXIMATION TO AREA IS ”’ AREA) 
end 


When we convert this to code and run it we find an approximation to the area of 
13 5. The situation is depicted in Figure 5.4. 

In this approximation we have neglected the eight small triangles shaded in 
Figure 5.4. These triangles annarently have a total area of 5A square units This 
suggests that we might be able to continue to improve our computer approximation by 
increasing the number of rectangles. Perhaps we can generalize this program to allow 
a variable number of rectangles Consider the following: 

100 REM —-- AREA 12/9/80 

110 REM —- INPUT VARIABLES: NUMRECT 

120 REM —- LOCAL VARIABLES: I, WIDTH, X, HEIGHT, RECT 

130 REM —- OUTPUT VARIABLE: AREA 


Figure 5.4 
Area Subdivided into Rectangles % a Unit Wide 
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140 PRINT "ENTER THE NUMBER OF RECTANGES' 
150 INPUT NUMRECT 

170 LET AREA = 0 

160 LET WIDTH = 4 / NUMRECT 

180 FOR! = 1TONUMRECT 

190 LET X = 1+ (I — 1) * WIDTH 

200 LET HEIGHT = .5*X + 2 

210 LET RECT = HEIGHT * WIDTH 

220 LET AREA = AREA + RECT 

230 NEXT | 

240 PRINT ‘APPROXIMATION TO AREAIS ';AREA 
250 END 


This is a coded and generalized form of the preceding algorithm. As we increase 
the value of NUMRECT we should see the approximation approach fourteen 

We have gone to a lot of work to approximate the answer to a problem whose 
answer is already known. However, tt might not be possible to calculate the area under 
more complicated curves so easily Our general method wiil work in such cases 
Consider the following problem: 

Calculate the area under the curve Y = -X"~2 4+ 16 fromX =OtoX =4 Wecan 
use the program above to solve this problem by simply changing lines 190 and 200 to 
read 

190 LETX=0O + (I — 1) * WIDTH 

200 LET HEIGHT = —X*X + 16 

The area being evaluated is shown in Figure 5.5. The exact value of this area is 
42/3 units. Run the program to find an approximation to this area. Increase NUMRECT 
and note that the approximation improves. 


Figure 5.5 
Area Under the Curve Y = —X*2 + 16 from X = Oto X = 4 


y 
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A word of warning concerning the evaluation of areas may be in order If the 
expression being evaluated (Yin our case) does not stay positive over the range of X, 
the value obtained for the area does not have the interpretation that it has been given 
above 


EXERGISE SET 5.2 


| Write FOR-NEXT loops with conditional transfers to accomplish the following: 


(a) Read data values from a data line and terminate when a data value is 
greater than 100. 


(b) Read daia values from a data line, accumulate them, and terminate when 
the sum is greater than 200 


(c) Evaluate the expression Y = 2* X + 3 as X ranges from —5 to 20. 
Terminate the evaluation if Y gets larger than 25 


2. Develop FOR-NEXT loops that will approximate the area under the following 
curves Include a statement to print the approximate value of the area. 


(a) Y-xX°S +7 from X Oto KX =A 
(b) Y= -2*M4 12 from X=OtoxX =3 
(c) Y= —-X°2+8 fom xX = —2toX =2 


3 Develop a program to evaluate areas by using the loop step value as the 
rectangle width 


4 Further generalize program AREA to allow the starting and ending values of X to 
be designated at the keyboard. 


5. Code program ACCTPAYABLE, which is written in algorithmic form in Section 
55 


Review 


FOR-NEXT loops simplify the process of handling repetitive processes by providing 
automatic controls over the operation of the loop. We summarize the new terms and 
concepis inirouuced ti) itus Chapisi 


INDEXED LOOP — aloop in which the maximum number of repetitions is controlled by 
a counter (Section 5.1) 


LOOP INDEX the name for the variable that holds the count of the number of 
repetitions of a FOR-NEXT loop. (Section 5 1) 


LOOP CONTROL VARIABLE another name for the loop index (Section 5. 1) 
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INITIAL VALUE OF LOOP INDEX _ the value given the loop index upon entry into 
the loop. (Section 5 1) 


FINAL VALUE OF LOOP INDEX ithe value which determines when the loop is 
exited. It is important to note that the loop index may never actually hold the specified 
final value. (Section 5. 1) 


STEP VALUE the amount by which the loop index is increased (or decreased) on 
each pass through the loop. (Section 5.1) 


DEFAULT VALUE _ the value assumed for a certain quantity if it is not specified. 
(Section 5. 1) 


SUMMATION NOTATION an abbreviated mathematica! notation used to indicate 
the sum of permitted values of a certain variable (Section 5 4) 


Basic SYNTAX 


FOR...TO...STEP the header statement for an indexed loop (Section 5.2) 


NEXT the terminator statement for an indexed loop. (Section 5.2) 
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INTRODUCTION TO FUNCTIONS 


A function can be considered to be a processor that performs some type of 
computation and returns a single value as a result. Programming languages generally 
provide a series of built-in functions that perform useful tasks. Such languages also 
allow users to write their own functions. All functions receive values called arguments 
as input, perform computations, and return results. Functions are quite useful; they 
make it possible to eliminate repetitive segments from programs and to simplfiy 
complex programming tasks by breaking them up into smaller and more manageable 
modules. Kernighan and Ritchie have written: ‘Functions are really the only way to 
cope with the potential complexity of large programs. With properly designed 
functions, tt is possible to ignore HOW a job is done; knowing WHAT is done is 
sufficient. '’* 

A common function is SQR which extracts the positive square root of its 
argument. Just about all dialects of BASIC support this built-in function. Here is an 
example. 


OUTPUT PROCESSOR INPUT 


S) — SQR — 25 


To implement this function in a program we might write: 


200 LET X = SQR(25) 


*Brian W Kernighan and Dennis M. Ritchie, 7he C Programming Language. (Englewood Cliffs, 
NJ; Prentice-Hall, 1978) p22. 
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In this case, the argument passed to the function is 25 and the returned value is 5. The 
argument and returned value are synonymous with input and output in the previous 
schematic. The returned value may be assigned to a variable as in line 200 above 
where it is assigned to X and hence stored. The returned value may also be used ina 
computation or immediately printed out as shown 


210 LET X= 10 + SQR(Y + 3) 
220 PRINT SQR(X) 


Note that either constants (line 200), variables (line 220), or expressions (line 210) may 
be used as arguments of functions. 

BASIC keeps a list of built-in function names. Indeed, we cannot use SQR as a 
variable name since the CPU has reserved it as a built-in function name We cannot see 
the built-in function, nor can we list it We do not know what statements are in the 
function. We only know the value of the argument we have passed to the function and 
the value ii returned 


FUNCTIONS THAT MODIFY 


MYTTTMIIT WATFTIOC 
WU bud V oad OG 


We iniroduce {two additional functions that process numerical values. These functions 
are useful in a variely of problem situations. 

We have previously developed a program that accepts as input the shelf price of 
anitem, adds sales tax, and computes a total sales price (Section 4.2). A portion of this 
program is shown below. 


140 LET TAXR = 5 

150 INPUT SHELFP 

160 LET SALESP = SHELFP + SHELFP * TAXR / 100 
170 PRINT "SALES PRICE IS $';SALESP 


When we ran this program before we were careful to enter values that caused the 
results to come out in even dollars and cents Let us run it again 


249.97 
SALES PRICE IS $59. 4685 


We are not accustomed to recording prices to the hundredths of cents. In fact, 
we would like to avoid such complications. For this purpose the INT function 
determines the largest integer less than or equal to the argument and returns that 
integer This process is often called truncation (when dealing with positive numbers) 
Suppose we write 


LET X = INT(52.4685) 
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52.4685 is the argument INT is the function X accepts the function value which will 
equal 52. 
Schematically, this process appears as follows: 


OUTPUT PROCESSOR INPUT 


02 — INT <— 92.4685 


It may seem as if this will not help us with our dollars and cents problem since this 
function would delete the entire decimal part. However, if we multiply 52.4685 by 100 
and then use the INT function, the function value will be 5246 To get the decimal part 
back we can divide by 100 to obtain 52.46. The statement, 


LET SALESP = INT(SALESP * 100) / 100 


will truncate all decimal parts beyond the second decimal 

There are situations in which we would prefer to round a value to a certain 
number of decimal places. Rounding means retaining the nearest approximation to the 
calculated value upon truncation For example, 52.4685 is closer to 52 47 than to 
52.46. To round, add .5 to the argument of the INT function. The statement, 


LET SALESP = INT(SALESP * 100 + .5) / 100 


will return 52.47 rather than 52.46 This procedure rounds positive numbers according 
to the following Rules for Rounding: 


lf the first digit discarded is zero through four, the last digit retained its 
unchanged. 


lf the first digit discarded is five through nine, the last digit retained is increased by 
one. 


We can generalize on the procedure of rounding in the following manner. To 
round a number to the Nth decimal place use the expression 


LET ROUND = INT(NUMBER * 10° N + .5) / 10° N 


Unwanted digits to the left of the decimal point may also be removed with the INT 
function. 

The INT function may appear to behave differently for negative numbers. For 
example, INT(—7.5) = —8. This is the way the function is supposed to work. 
Truncation does not occur with negative arguments. To effect truncation of negative 
numbers special steps must be taken.* (See exercise 1 in Exercise Set 6.1 ) 


*TRS-80 BASIC has a special function called FIX() which truncates both positive and negative 
numbers 
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The INT function provides another capability that is very useful. Suppose we wish 
to determine if a number is evenly divisible by another number The test of divisibility is 
the absence of any decimal parts in the answer after the division has occurred. For 
example, eight is divisible by four since the answer, two, has no decimal parts This 
means that the value of INT(8 / 4) is also two, so that 8 / 4 = INT(8 / 4) Wecan 
generalize this to write: 


Y is evenly divisible by X if ¥ / X = INT(Y / X) 


But nine is not evenly divisible by two Note that 9/2 = 4.5 and that INT(9/2) = 
4 Thus, 9/2 <> INT(9/2). We can generalize this to write. 


Y is not evenly divisible by X if Y / X <> INT(Y / X) 


Another function that modifies numerical output is the ABS function ABS is an 
abbreviation for absolute value. The absolute value of a number refers to its size 
without regard to its mathematical sign That is, the absolute value of —9 is greater 
than the absolute value of —7, although —7 is greater than —9. The absolute value of 
—9 is also greater than +7 The absolute value of a number is a measure of its 
distance from zero on the number line. 

Inmany cases, we are cancerned only with the size of number and not whether 
the number is positive or negative Running a number through the ABS function 
removes its negative sian if it has one. The processor does nothing to positive 
numbers. The statement, LET X = ABS(— 7.32), will return 7.32 as the function 
value. In symbolic notation: 


OUTPUT PROCESSOR INPUT 


rae | — | aes | - | re | 


Write a BASIC statement that will accomplish each of the following. 


—s 


(a) Evaluate the square root of X + 4 and assign the value to Y 
(b) Assign the absolute value of X + Yto Z 
(c) Compute the largest integer less than X + Y and assign the value to Z. 


(d) Compute the smailest integer greater than X if X is negative Assign this 
computed value to Y This statement will truncate negative numbers. 
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2. Predict the values of X that would be generated in each case below. 


(a) 
(b) 
(C) 
(d) 
(e) 
(f) 
(9) 
(h) 


LET X = SQR(49) 

LET X = INT(—32.31) 

LET X = INT(39.94 * 10 + .5) / 10 
LET X = INT(2.316 * 100 + .5) / 100 
LET X = ABS(-— 3.2) 

LET X = ABS(2 — 3° 3) 

LET X = INT(SQR(30)) 

LET X = ABS(INT(—7.5)) 


3 Insert a staternent in program AVERAGE (Section 4.6) to round the average to 
one decimal place. 


4. Write statements that will perform the following operations: 


(a) 
(b) 
(c) 


(d) 


Truncate variable Y to two decimal places and assign the new value to X. 
Round variable Y to three decimal places and assign the new value to X 


Replace the 1’s and 10's digits in the number 5628 with zeros. You are to 
change this number to 5600 using the computer. 


Retain only three non-zero digits in the number 41267 but round before 
discarding digits. That is, you are to use the computer to obtain the number 
41300 


3 Write program fragments to accomplish the following: 


(a) 
(b) 


(Cc) 


Determine if Y is evenly divisible by seven. If so, print the message "¥ 1S 
DIVISIBLE BY 7’ 

Determine if both X and Y are evenly divisible by Z If so, print the message 
"X AND Y ARE DIVISIBLE BY 2' 

Print a line of dashes with every fifth dash replaced by an asterisk. Use a 
loop to produce a line sixty-one units long beginning and ending with an 
asterisk. 


6.3 RANDOM NUMBERS 


The computer has the capability to generate a series of random numbers This is 
provided by another function, which is designated as RND The RND function is 
somewhat different from those we have discussed. For example, the program 
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fragment below will generate ten random numbers in the interval zero to one (excluding 
one). 


100 FORI=1TO 10 

110 LET X = RND(1) «— Use RND(0) on TRS-80. 
120 PRINT X 

130 NEXT! 


A run of the program might yield the following: 


-.0407319219 
.528293158 
803172316 
0643915121 
157805367 
.367305924 
.783585386 
.395769807 
322348213 
.372 165689 


As in other built-in functions, the RND function is designated by three letters 
followed by a set of parenthesis in which an argument is placed However, the 
argument may have no fixed relation to the output as in other functions. The functions 
are usually designed so that the value of the argument determines whether the 
sequence of random values can be reproduced from run to run. Positive arguments, 
negative arguments and a zero argument may produce different results. We suggest 
you consult the documentation for your computer 

You may wonder what purpose these numbers serve Probably their most 
common use is to simulate the results of processes that depend on random events A 
familiar experience might be the tossing of a coin. We expect that a fair coin will show 
heads or tails with equal probability Since the numbers generated by the RND function 
are supposed to be uniformly distributed in the interval from zero to one, we could 
consider any number less than 5 to represent a head and any number greater than or 
equal to .5 to represent a tail. With this criteria the preceding run would represent seven 
heads and three tails. Let us insert a double alternative decision structure in the 
nrogram ahove to tahulate the heads and tails 


COINTOSS: 
declare numeric |, X, TAIL, HEAD 
set TAIL to 0 
set HEAD to 0 
loop while | goes from 1 to 10 
X <— RND 
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if (X >= .5) 
[increase TAIL by 1] 
else 
[increase HEAD by 1] 
end loop 
put (‘YOU TOSSED "',HEAD;"" HEADS AND "';TAIL;"' TAILS.) 
end 


In code, this might appear as follows: 


100 REM -- COINTOSS 12/14/80 

110 REM -- LOCAL VARIABLES: I, X 

120 REM -- OUTPUT VARIABLES: HEAD, TAIL 
130 LETT =O 

140 LETH =O 

150 FORI=1TO 10 

160 LET X = RND(1) RND(O) for TRS-80 

170 IF X>=.5 THENLET T = T + 1: GOTO 190 
180 LETH =H + 1 

190 NEXT I 

200 PRINT "YOU TOSSED ';H;" HEADS AND ';T;" TAILS." 
210 END 


This procedure illustrated by statements 170 and 180 works well for two 
alternatives Suppose there are six alternatives as in the roll of a die. The division of the 
interval zero to one into six subdivisions is more difficult, so we expand the range of the 
random numbers by multiplying RND(1) by six. The range of the output now runs from 
zero to six {excluding six) so that we could consider any number from zero to one to 
represent a one, any number from one to two to represent a two, etc This is still not 
very satisfactory as we would like output that more closely simulates the actual 
experiment of rolling the die Consider the effect of the following statement: 


LET X = INT(6 * RND(1) + 1) 


The argument of the INT function is 6 * RND(1) + 1 This argument will be a 
number between one and seven since 6 * RND(1) was a number between zero and 
six. The argument has the decimal part removed by the INT function. X is thus one of 
the integers 1, 2, 3, 4, 5, or 6. The value of X may be interpreted as the count on the die 
face. The tabulation of 1s, 2s, etc would appear to be a more difficult problem 
requiring several decision structures A simple method of tabulation will be available 
when we introduce subscripted variables in Chapter 7 

From this discussion it evolves that we may generalize the problem to produce 
random integers in any range. The generalized statement is: 


LET X = INT((R2 — R1 + 1) * RND(1) + R1) 


95 


96 Functions Ch 6 


where R7 is the smallest integer (lower value) generated and R22 is the largest (upper 
value) of the integers. 


The TRS-80 BASIC provides a convenient method of generating random 
integers in the range from one to N. Simply use the maximum integer 
desired as the argument of RND That is, LET X = RND(6) will generate a 


random integer in the range one to six. Extension to any range then 
becomes an easy matter. For example, LET X = RND(6) + 2 will provide 
random integers in the range three to eight. 


A valuable application of random number generation occurs in the Monte Carlo 
method of simulation The purpose of a Monte Carlo simulation is to solve problems in 
which only the statistical distripution of certain problem variables is known Specific 
variable values from within that distribution can be produced using the random number 
generator 

One of the simplest problems to solve using the Monte Carlo method is the 
simulation of a one dimensional random walk. In such a walk, motion is limited to a 
Straight line with the direction chosen randomly The purpose of the simulation is to 
determine how far the walker will be from the starting point after VN steps We have a 
probability distribution (equal probability of right or istt) and a random number 
generator to select one of the two options so the problem should be solvable. Let us 
develop a program in pseudocode for its solution 


RANDOMWALK. 
declare numeric MOVE, DISTANCE, NTRIES, | 
get (NTRIES) 
set DISTANCE to 0 
loop while | goes from 1 to NTRIES 
if (RND < .5) 
[MOVE <— — 1] 
else 
[MOVE <—— J] 
increase DISTANCE by MOVE 
end loop 
DISTANCE «— ABS(DISTANCE) 
put ('DISTANCE AFTER ";NTRIES,". STEPSIS "':;DISTANCE) 
end 
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We convert this to code: 


100 REM -- RANDOMWALK 9/15/80 

110 REM —- INPUT VARIABLES:NTRIES 

120 REM -~ LOCAL VARIABLES: MOVE, | 

130 REM --— OUTPUT VARIABLES: DISTANCE, NTRIES 
140 INPUT NTRIES 

150 LET DISTANCE = 0 

160 FORI=1TONTRIES 

170 IF RND(4) < .56 THEN LET MOVE = — 1: GOTO 190 
180 LET MOVE = 1 

190 LET DISTANCE = DISTANCE + MOVE 

200 NEXT! 

210 LET DISTANCE = ABS(DISTANCE) 

220 PRINT "DISTANCE AFTER ';NTRIES;' STEPS IS '; DISTANCE 
230 END 


The repetition of this program should lead you to some sort of generalization 
about the relation between distance and number of steps. Such a generalization is the 
purpose of the experiment. You should find that the distance can be approximated by 
the square root of the number of steps Do not expect to see this result in a single walk 
but only if you average many walks for a reasonably large number of tries. 

As we noted earlier, the random number distribution is essentially uniform in any 
interval We can, however, generate a peaked distribution using a series of such 
functions We illustrate such a procedure in the Library of Subroutines. (Appendix B). 


USER-DEFINED FUNCTIONS 


A user-defined function is, as its name suggests, a function that the user constructs. 
For example, tf we wish to convert a number of values to percent from decimal we 
might define a function that multiplies the function argument by 100 as follows: 


200 DEF FN Y(X) = 100 * X 


This function then acts as a processor, which multiplies the argument by 100 and 
delivers that value as output We display the function below: 


OUTPUT PROCESSOR INPUT 
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There is some variation in the type of user-defined functions allowed by the 
various dialects of BASIC. Some dialects allow multi-line user-defined functions. Some 
allow more than one argument. Since none of our microcomputers allow these special 
options we will not consider them further. 

Let us begin with a simple example of a user-defined function in a single variable 
Assume that we need to round numbers to one decimal place at several places in a 
program. A function can satisfy this need quite easily Before a function can be used, it 
must be defined as in the following example. 


150 DEF FN R(Z) = INT(Z * 10 + .5) / 10 


200 X = 127.68 
210 PRINT FN RQOQ 


DEF is a BASIC keyword that identifies the statement purpose and FN is an 
abbreviation for the word function The keywords DEF FN define R as a function rather 
than as a variable. It is possible fo use R as a variable in the same program without 
contusing the computer jnere is a yiedier fiSK, NOWSVEr, that this practice may 
confuse humans. The function definition must be logically prior to its use; in other 
words, the definition staiemeni musi De execuied first. 

The role of the variable Z in statement 150 may be the most difficult to 
understand. It is sometimes called a Qummy argument or a parameter variable I|t 
doesn't do anything; in reality it is only a stand-in or place holder for the real argument 
that will be passed to the function when it is invoked 2 can be thought of as a local 
variable since its value is not known outside the function itself Thus, you could use 
another variable called Z elsewhere in your program without getting the values mixed 
up Again, this may be a confusing practice for humans. You will also note the presence 
of a reference to INT with which you are already familiar !t demonstrates that one 
function can call another All other values in the function statement are numeric 
constants Statement 210 invokes or calls the function by using or referencing its 
name 

Lot us now consider a slightly more complex version of the preceding program. 
Assume that we want the same rounding function with the additional consideration that 
we need to be able to vary the number of decimal digits to be retained in this Case, we 
need to pass an additional argument to the function. However, the dialects of BASIC 
that we are working with allow only one function argument. We accompiish our goal, 
nevertheless, with the use of a second variable as follows. 


120 DEF FN RR(A) = INT(A * 10° DP + .5) / 10° DP 
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200 X = 129.196 


210 DP =1 
220 PRINT FN RR(X) 
230 DP =2 


240 PRINT FN RR(X) 


Here our function name is RR As with variable names, function names can be of 
any length but only the first two characters are significant. This function is very similar to 
the previous one except for the substitution of the variable DP to indicate the number of 
decimal places desired. DP is called a global variable because its value is simulta- 
neously known to the function and the main program. If the value of a global variable is 
changed in one program unit, this change affects its value in all program units. In fact, in 
BASIC, all variables are global except dummy variables. This contrasts with the 
practice of other languages, such as FORTRAN, where all variables are normally /ocal, 
that is, Known only to the program unit in which they occur In FORTRAN, a programmer 
must explicitly declare a variable to be global 

It is important to note that tf more than one variable appears in a function 
definition, the dummy (local) variable is immediately identified as the one that appears 
on the left side of the equation. 

Finally, let us look at a simple program that is designed to illustrate the 
independence of global variables, functions, and local variables with the same name 
This program is designed to discount by 10% the list price of any item valued at $100 or 
more and then add 5% sales tax to obtain a sales price. 


100 REM -—- FUNCTION TEST 

110 REM 

120 DEF FN TC(X) = X * 1.05 

130 DEF FN RR(TC) = INT(TC * 100 + .5) / 100 
140 PRINT 'LIST',"DISCOUNT',"PRICE’ 

150 FORI=1TO5 

160 DISC =O 

170 READ LP 

180 PRINT LP, 

190 IF LP >= 100 THEN DISC = LP * .1:LP = LP *.9 
200 TC = FN RR(FN TC(LP)) 

210 PRINT FN RR(DISC),TC 

220 NEXT I 

230 DATA 55.71, 121.15, 69.95, 259.42, 86.20 
240 END 


This program produces the following output. 


LIST DISCOUNT PRICE 
55.71 O 58.49 
121.15 12.12 114.49 (continued) 
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69.95 0 73.45 
259.42 25.94 245.15 
86.2 0 90.51 


The program works correctly The listing demonstrates the following: 

1 TC is used as a function name in line 120, as a dummy variable in line 130, 
and as a global variable in lines 200 and 210 They are three completely separate 
entities. 

2 TC is used as a function name and as a global variable in the same line, line 
200. 


3 FN RR, a user-defined function has as an argument another user-defined 
function in line 200. 


4 X appears only as a local variable in this program, in line 120. 


We certainly do not recommend this kind of programming practice but it does 


illustrate the distinctions between local variables, global variables, and function 
names. 


EXERCISE SET 6.2 


1. 


Write BASIC program fragments to accomplish the following: 
(a) Produce twenty random integers in the range from five to ten 


(b) Produce 200 random integers in the range one to six. Have the program 
count those integers less than or equal to three. 


Simulate the experiment of drawing colored bails from a box Assume there are 
two white balls and three black balls in the box. Develop a program that will count 
the number of successes in drawing two white balls in Sequence. The program 
must also tally the total number of attempts. Hint generate random integers over 
a range of five allowing two values to represent white and three values to 
represent black. Solve the problem with and without replacement of the white 
hall 


Generalize the program COINTOSS to allow for input at the keyboard of the 
number of trials. Investigate the ratio of heads to tails as the number of trials 
increases 

Write user-defined functions to accomplish the following: 

(a} Convert a percentage value to a decimal 

(6b) Convert Fahrenheit temperature to Celsius 

(c) Add 6% sales tax and round the result to two decimal places 
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(d) Convert inches to feet and express the result to the nearest hundredth of a 
foot. 


5 Consider the following BASIC statement: 
100 DEF FN C(Z) = PO* (1 — Z)°"N 


In this statement identify 
(a) the function name 
(Do) the dummy variable 
(c) the global variable(s) 
6. Simulate the crossing of two hybrid (mixed gene) characteristics. Assume that 
one of the genes is dominant and that the other is recessive. Count the 


percentage of double recessives, of hybrids, and of double dominants in the 
offspring for a large number of crossings. 


CODING MATHEMATICAL FUNCTIONS 


We have been careful to present mathematical expressions in coded form. However, 
we frequently face the task of coding such an expression. For example, the principal 
value (P) of a fixed amount of money deposited in a bank is given by the equation. 


P=Py(1+0 


where P, = initial deposit 
r = annual interest rate in decimal form 
n = number of years on deposit 


This expression assumes that the interest is compounded annually To code this 
expression we need to know something about the abbreviated notation of mathemat- 
ics. Here is some of that notation 

3x  (aconstant and a variable written side by side) implies 3 multiplied by x. 

xy (two variables written side by side) implies x multiplied by y 

x” (one symbol as a superscript) implies x raised to the y power—that is, 

exponentiation 

x(y + 3) (one quantity in parenthesis) implies multiplication of the quantity 

outside the parenthesis with that inside 


The BASIC language does not recognize the mathematical conventions noted 
above. As a result, implied operations, those operations that are indicated by the 
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placement of mathematical symbols, must be written out using the appropriate 
operators. However, the language does recognize parentheses Such parentheses in a 
mathematical expression should be retained in the coded expression 

Looking again at the principal equation we see two implied operations and one 
set of parentheses. To change the implied operations to correct BASIC syntax,proceed 
as follows: 


(1+ 7)" becomes (1 + R)°~ N 
P,(1+ 7° becomes PO * (71 + R)°N 


We retain the parentheses. 
Consider a modification of the problem If the bank compounds interest more 
frequently than annually, the equation for principal becomes 


rym 
P= Po[ +7 
Mm 


where mis the number of compounding periods per year 
There are three implied operations in this equation The additional one 


miryoduceGd iS: 
mn which converts to M* N 


Note that the fraction bar (—) is an explicit expression for division, which equates to 
the division symbol! (7) 
We might be tempted to make the following literal translation of 


rym 
P= Po( + 
mM 


LETP=PO0*(1+R/M)°M*N 


But note that BASIC will treat this expression as: 


BASIC has no way of knowing that we intended to raise (1 + (r/m)) to the mn 
power As a result of the hierarchy of operations, the code as written above will raise (1 
+ r/m) to the mth power and then multiply the result by 7. In this case, we need to add 
a set of parentheses to avoid an error in the code We write: 


LETP = PO*(1+ R/ WM)" (M*N) 


This is another example of implied operations. By writing mn as an exponent we 
implied that it was to be treated as a unit. 
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RULES FOR CODING 


Based on our experiences above, we might formulate a set of rules for programmers 
converting algebraic expressions to code. These rules are based on the hierarchy of 
operations discussed in Section 2 5. However, they provide more explicit instructions 
on how to code algebraic expressions involving implied mathematical operations 


Rules for Converting Expressions to Code 


1 Parenthesize those units whose parenthesization is implied in the algebraic 
expression. Look specifically for exponents involving operators and numerators 
or denominators having more than one term.* BASIC function arguments should 
be parenthesized 


2 Convert all implied multiplications to explicit multiplications and fraction bars 
to division symbols 


3 Convert all implied exponentiations to explicit exponentiations 


4 Add the necessary assignment or print statement The result should be a 
correct code representation. 


Consider the following example problems. 


1 Convert the expression, y = 3 to code 
Rule 1 yields y = 3) 
(Note that we have parenthesized the exponent.) 
Rule 2 yields y = 3°” 
(Implied multiplications are converted to explicit multiplications.) 
Rule 3 yields y = 37 (2 * x) 
(Implied exponentiation has been converted to explicit exponentiation ) 
Rule 4 yields LET Y = 3 * (2 * X) 
(An assignment statement has been added and variables rewritten in upper 


case. ) 
2. Convert the expression, y = 5 , to code 
, x 
Rule 1 yields y = ——— 


(Xe — 3) 


(Note the addition of a set of parentheses Numerators and denominators of 
fractions must be treated as units. If they consist of more than one term, 
parenthesization is necessary ) 


*A term in an algebraic expression is a unit of the expression separated from other units by 
addition or subtraction {n the expression 3x* + 2x + 2, 3x’ is a term, 2x is a term, and 2isa 
term 
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Rule 2 yields y = x / (x — 3) 

(One fraction bar has been replaced by a division symbol } 

Rule 3 yields y= x / (x° 3 — 3) 

(One implied exponentiation has been converted to an explicit exponentiation.) 
Rule 4 yields LET Y = X / (X° 3 — 3) 


6.7 NUMERIC INPUT AND OUTPUT 


The computer will accept numbers in whole number form, decimal form, or in 
scientific notation. Scientific notation refers to a form of notation in which a number 
is written as the product of two numbers. The first number has a single digit left of the 
decimal point The second number is ten raised to a power All numbers may be written 
in scientific notation. 

To convert a number to scientific notation, move the decimal point so that only 
one nonzero digit appears left of the decimal point. The number of places the decimal 
point is moved determines the exponent on the power of ten. Right moves give 
negative exponents and left moves give positive exponents. For example, to write 
521.5 in scientific notation we move the decimal point Jeft two places to get 5 215. Next 
we multiply by 10 2 since the move was ieii two piaces. Tie final resuil is 


5.215 x 10° 2 


To enter a number into the computer in scientific notation, it must be written in a 
special way. The value above would be entered as: 


5.215E2 

The E takes the place of ‘‘x 10°” Here are some additional examples: 
—Q.0361 = —3.61x 10° —2 = —3.61E-2 
30 = 30x 10° 1 = 3.0E14 


Although we can enter a number in any form, the computer will print the number in 
scientific notation if the value is outside a certain range. That is, if the number is very 
small (less than 0 01) or very Jarge (greater than or equal to 1,000,000,000), it will be 
printed in scientific notation 

This varies from computer to computer so that you should check the range for 
your system The following immediate PRINT commands along with their outout disnlay 
this characteristic. 


COMMAND RESULT 
PRINT .0052 5.2E—03 
PRINT .052 .052 

PRINT 520000000 520000000 


PRINT 5200000000 9.2E+09 


Sec 67 


Numeric input and Output 


PRINT 5.21E5 521000 
PRINT —3.21E—2 —.0321 


We should note some other eccentricities in the numerical output of most 
machines. First, the computer will not retain trailing zeros after a decimal point unless 
forced to do so. This is illustrated in the following immediate commands: 


COMMAND RESULT 


PRINT 512.0 512 
PRINT .000320 3.2E—04 
PRINT '$':25.20 $25.2 


If the trailing zeros are present because they have meaning, as in the case of 
printing a value in dollars and cents, we may not be happy with the appearance of the 
output. More importantly, if the trailing zeros are present because they represent 
significant digits in a measured value, they will be lost during the computer operation. 
We will cover this problem in more detail in Section 11 of Chapter 10 

A second problem concerns the way the computer performs exponentiations lf 
you enter 


PRINT 7 * 7 
you are likely to obtain forty-nine as the answer. On the other hand, if you enter 
PRINT 7° 2 


you are likely to obtain 49.0000001 as the answer. You may be surprised to find that 
seven squared is not the same as seven multiplied by seven. This result, of course, 
must be explained in terms of the way the computer performs exponentiation. It does 
so by multiplying the exponent by the logarithm of the base (seven in this case) and 
then exponentiating this result. Those who are mathematically inclined might try the 
following immediate command. 


PRINT EXP(2 * LOG(7)) 


Both the Apple and the PET have this exponentiation characteristic However, 
TRS-80 owners will be happy to learn that seven squared is still forty-nine 


EXERCISE SET 6.3 


1. Write a BASIC statement that will evaluate the dependent variable in the following 
equations. 


kT k = Boltzmann constant 
(a) v= pale 7 = absolute temperature 
m 


m= molecular mass 
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(b) v= 1414/— k, T, and mas in problem 1{a) 


1 \2 c = velocity of light 
(Cc) v=Caf/{— (;-} L = wavelength 
2a a = guide width 
2. Write a BASIC statement that will evaluate the dependent variable below for any 
assigned value of the independent variables 


Aqr? 
Y-——— 

(a) 3 
(b} _2x—3 
YOUVE 


(c) y=2x° + 3x? — 1 


(d) H= + 


(e) z= (x+y) 


3 Write a BASIC program fragment that will output the value of the dependent 
variable in the following equations Use the given values for the independent 


variables. 
4 3 
(a) V= = r=314,r=25 
(b) awate h=6.a=2,b=3 
3x7 4 4 
() yo yae OS 
(t+ 1)? 
, ~32 L214 }f22 
(d) A oF 


(e) y=4(x + hy X=2,h=5 


4 Write program fragmenis that include keyboard input o7 independent variables, 
as well as evaluation and output of the dependent variable, for each of the 
following equations. 

n = number of moles 


A = universal gas constant 
(a) P=—_ 7 = absolute temperature 
V = volume 

P = pressure 
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m = slope 

b = y-intercept 
xX = x-coordinate 
y = y-coordinate 


(b) y=mx+b 


, Ai = resistance 1 
R2 
= a A2 = resistance 2 
+ Re = equivalent parallel resistance 


(c) Re 


5 Convert the following numbers to scientific notation: 


(a) 0.0032 
(b) —52 
(c) 2156000000 
(d) 4215 


(e) —0.000452 
(f) 6 
Which of these numbers would the computer place in scientific notation? 


6.8 A CAUTION ABOUT FUNCTIONS 


While functions are valuable shortcuts, they can also cause problems in our programs 
For example, it is not possible to find the square root of —4 (at least not in the real 
numbers with which the computer deals). Thus, if a negative number is entered as the 
argument of the SQR function, some sort of error message will be generated 
depending upon the computer system Some programmers may prefer to pass their 
arguments through a screening system before passing them to the SQR function to 
avoid such problems. In any case, one should be aware of this limitation and other 
limitations, which we will introduce as we encounter new functions. The INT and ABS 
functions have no restrictions on their arguments, as long as those arguments are 
numeric values. 


Review 


We summarize the new terms and BASIC syntax introduced in this chapter 


FUNCTIONS _ special operations of limited scope that process input values into 
output values bearing a known relation to the input. (Section 6 1) 


ARGUMENT OF A FUNCTION the input value that is to be processed by the 
function (Section 6 1) 


RETURNED VALUE the output value after processing of the argument by the 
function. (Section 6 1) 
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RANDOM INTEGER integers generated randomly in any interval (Ri — R2 
inclusive) through the use of the following expression. 


LET X = INT(RND(1) * (R2 — R1+ 1) + R1) 
(Section 6.3) 


MONTE CARLO METHOD = a method of simulation in which the problem variables 
receive random values that are dictated by a known statistical! distribution. (Section 
6.3) 


IMPLIED OPERATIONS _ operations that are indicated by placement of symbols 
(for example, raising a symbol above the line implies exponentiation) (Section 6 5) 


RULES FOR CODING ALGEBRAIC EXPRESSIONS _ rules designed to assist the 
programmer in converting algebraic expressions to code. (Section 6.6) 


SCIENTIFIC NOTATION  aspecial power of ten notation Most BASIC dialects use 
this notation for the output of numeric values outside a given range (Section 6 7) 


Basic SYNTAX 


SQR(X) a function that extracts the positve square root of X. X must be >= 0 
(Section 6.1) 


iNT(A) a function inat reiurns the iargesi integer iess ihan or equai to A (Section 
6.2) 


ABS(X) a function that returns the absolute value of X. (Section 6.2) 


RND(X) — a function that returns a random number with certain reservations dependa- 
ing upon the value of X (Section 6.3) 


DEF FN NA() = (function) — a function to be defined by the user The function name in 
this example is NA A local variable must appear in the parentheses and in the function 
defined The defined function may consist of any legal! operations involving the local 
variable and global variables as well as other standard or user-defined functions 
(Section 6 4) 


SUBSCRIPTS 
ae AND ARRAYS 


7.1 INTRODUCTION TO SUBSCRIPTS 
AND ARRAYS 


In Chapter 2 we discussed the fact that values must first be stored in computer memory 
before they can be manipulated by the computer We pointed out that values are 
inserted in memory locations by means of one of three methods: 


1 Assigning values in a program statement (LET) 
2 Reading values from an internal data set (READ and DATA) 
3 Entering values at the keyboard (INPUT). 


If we have a large number of related variables, which must be handled and kept 
distinct by the computer, we would be confronted with the problem of inventing enough 
variable names to represent the data and writing enough statements to assign data to 
the variables In such circumstances, we would soon be overwhelmed by the task. 
Fortunately, there is an easier way to handle related variables 

Subscript notation allows us to organize related data into lists and tables. Such 
lists and tables are called arrays. The subscript serves as part of the variable name. 
The subscript also places a numerical identification on specific locations in the array 
which makes it very convenient to manipulate the data in the array with FOR-NEXT 
loops. With an understanding of arrays and their manipulation, we begin to realize the 
power of the computer in organizing and handling large data sets. 


109 


110 


7 2 


7.3 


Subscripts and Arrays 


SUBSCRIPTS 


When scientists work with a series of related numbers, they often use subscripts to 
indicate which item in the series is being referenced For example. 


xX, Xp, Xa, X4, Xs, Xe, Xy, Xg 


represents a Series of eight values of the quantity X The use of subscripted variables in 
programming Is a great convenience when handling large series of numbers. However, 
when we program, subscripts cannot be written below the line as their name implies 
because terminals and keypunches have no half-line carriage control. Therefore, we 
enclose subscripts within parentheses; for example, X,, X., X, becomes X(1), X(2), 
X(3) Programmers refer to such a series of numbers as an array All elements of an 
array are referenced by the same variable name together with the appropriate 
subscript. 


USING ARRAYS 


Let us illustrate the utility of arrays by solving a simple problem. Our task is to write a 
program that will read and print a list of student grades, compute and print the average 
of those grades, print the lowest and highest grades, and list all those grades that are 
above the class average The first part of the task, reading and printing the grades and 
computing and printing the average, is a relatively simple task. We need a loop to read 
and print the grade values, to accumulate the count of grades, and to keep a running 
total of the grades all at the same time. Once the loop is finished, we merely compute 
and print the average. The following program in pseudocode illustrates: 


MEANGRADE: 
declare numeric GRADE ,SUM, COUNT MEAN 
set SUM to 0 
set COUNT to 0 
loop 
gei(GRADE) 
if(GRADE < 0) [ break ] 
put(GRADE) 
increase SUM by GRADE 
increase COUNT by 1 
end loop 
MEAN <— SUM/COUNT 
put(''THE MEAN IS "| MEAN) 
end 


Ch. 7 


Sec.73 


Using Arrays 


However, this program only does half the job At first glance it may seem as if we 
could add some modifications in order to satisfy the remaining requirements Bult, in 
fact, there is a fundamental flaw in our approach. This program is fine for computing the 
mean, but since it does not retain individual scores as separate values for later 
comparison with the mean, we must devise a different approach Not only do we wish 
to count and sum the grades, but we must also retain a copy of each grade Anarrayis 
well sutted for such an application. 

We can summarize our programming task as foilows: 


Step 7 Read alist of grades 

Step 2 Print the list of grades. 

Step 3 Compute the mean grade 

Step 4 Select and print the lowest grade. 

Step 45 Select and print the highest grade. 

Step 6 Print the mean grade. 

Step 7 Print all grades above the average or mean. 


Upon careful study, we can determine that Step 7 requires a second pass 
through the data This is so because we cannot know the mean grade in the same loop 
that is computing it. Thus we will need two loops The first will read all the data and 
accumulate the count and sum of the grades; and, the second will select the above 
average grades Since we must have two loops, a reasonable division of labor would 
be for the first loop to perform Steps 1, 2, and 3 and for the second loop to perform the 
rest of the steps. Below we present a second attempt at formulating a program in 
pseudocode. It bears some resembiance to the previous attempt 


MEANGRADE2- 
declare numeric GRADE,SUM,COUNT [MEAN 
declare numeric HIGH,LOW, INDEX, TABLE(20) 
set SUM to 0 
put(‘'GRADES:"’) 
loop while COUNT goes from 1 to 20 
get(GRADE) 
if(GRADE < QO) [ break | 
TABLE(COUNT) «— GRADE 
put(GRADE) 
increase SUM by GRADE 
end loop 
decrease COUNT by 1 
MEAN <— SUM / COUNT 
put(‘‘MEAN GRADE IS "' MEAN) 
LOW +— TABLE(1) 
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HIGH «— TABLE(1) 

put(““LIST OF ABOVE AVERAGE GRADES"’) 

loop while INDEX goes from 1 to COUNT 
if( TABLE(INDEX) > MEAN )[ put (TABLE(INDEX)) | 
if(TABLEC(INDEX) < LOW) [LOW <— TABLE(INDEX) ] 
if(TABLE(INDEX) > HIGH) [ HIGH «— TABLE(INDEX) | 

end loop 

put(‘'HIGH GRADE IS *’ ,HIGH) 

put(‘‘LOW GRADE IS "’, LOW) 

put(“‘COUNT OF GRADES IS "’ ,COUNT) 

end. 


As in our first attempt, MEANGRADE2 makes two basic assumptions about the 
data first, that no more than twenty grades will need to be processed; and, second, 
that legitimate grade values will be nonnegative and therefore any negative number can 
be properly used to indicate end of fle There are some important differences between 
the two versions of the program. They are as follows: 


1 The second deciare statement indicates TABLE to be an array of size twenty. 
This means that TABLE will have twenty memory locations assigned to it rather 
than merely one Those memory locations will be numbered from one to twenty. 
Many versions of BASIC actually allow a subscript of zero and thus would provide 
room for a total of twenty-one data elements. Since this feature is not available in 
all dialects of BASIC and because it can greatly complicate an algorithm, it is best 
to avoid use of the zero array element 


2 The first loop in MEANGRADE2 is an indexed loop rather than the simple loop 
of the earlier version Since we are dealing with an array, it makes sense to use 
the loop index as an automatic subscript index You will also note that our 
algorithm gets a value for GRADE, which ts inserted into the array TABLE only 
afier it is determined to be a real grade value—that is, not a negative trailer 
value. 


3 You will notice that COUNT is decreased by one after the first loop is exited. 
This is necessary because COUNT will always be one value too high. When the 
negative trailer value is encountered, COUNT will already have heen incremented 
before GRADE is tested Similarly, when the loop is executed twenty times, the 
index will be first increased to twenty-one before it is tested and found to exceed 
the limit for the loop 


4 \|norder to select the high and low scores we begin by arbitrarily declaring the 
first value in TABLE to be both the highest and the lowest. 


5 Then the program enters the second loop in which it compares successive 
elements of TABLE with the current value of HIGH, subsiituting the current TABLE 
value for HIGH when it is the greater A similar approach is used to select the 
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smallest value. It is true that the loop performs one unnecessary iteration—the 
first—but it is easier to waste a little computer time than create a more 
complicated algorithm. Had the loop index begun with two, we would not have 
been able to list element 1 of TABLE if it were greater than the MEAN 


With our pseudocode program complete, it only remains for us to translate it into 
BASIC We have decided to get our data from data statements within the program 
itself Here is the BASIC version: 


100 REM -—- MEANGRADE2 1-1-81 

105 REM —- INPUT VARIABLES: G 

110 REM -- LOCAL VARIABLES: INDEX, SUM 

115 REM -- OUTPUT VARIABLES: MEAN, HIGH, LOW, COUNT, TABLE( ) 
120 DIM TABLE(20) 

125 SUM=O 

130 PRINT "GRADES:' 

135 FOR COUNT = 1 TO 20 

140 READ G 

145 IF G < O THEN 170 

150 TABLE(COUNT) = G 

155 PRINT G 

160 SUM = SUM +G 

165 NEXT COUNT 

170 COUNT = COUNT —- 1 

175 MEAN = SUM / COUNT 

180 PRINT "MEAN GRADE IS ";MEAN 

185 LOW = TABLE(1) 

190 HIGH = TABLE(1) 

195 PRINT "LIST OF ABOVE AVERAGE GRADES' 

200 FOR INDEX = 1 TO COUNT 

205 IF TABLE(INDEX) > MEAN THEN PRINT TABLE(INDEX) 
215 IF TABLE(INDEX) < LOW THEN LOW = TABLE(INDEX) 
220 IF TABLE(INDEX) > HIGH THEN HIGH = TABLE(INDEX) 
225 NEXT INDEX 

230 PRINT "HIGH GRADE IS ';HIGH 

235 PRINT "LOW GRADE IS ‘;LOW 

240 PRINT "COUNT OF GRADES IS ';COUNT 

500 REM -- DATA SET 

505 DATA 70,67,89,88,78,98,84,85 

510 DATA —99 

999 END 


The translation has gone smoothly. The only unexpected change is that the 
variable name for the student grade was GRADE in the algorithmic language version, 
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while G is used in the BASIC version. This was made necessary because GR is a 
reserved keyword on the Apple. Statement 120 contains new syntax which we will 
discuss next. Here is some sample output: 


RUN MEANGRADE2 
GRADES: 

70 

67 

89 

88 

78 

98 

84 

85 

MEAN GRADE IS 82.375 
LIST OF ABOVE AVERAGE GRADES 
89 

88 

98 

84 

85 

HIGH GRADE iS $8 

LOW GRADE IS 67 
COUNT OF GRADES IS 8 


7.4 DECLARING ARRAYS 


BASIC assumes that all variables are simple variables, sometimes called sca/ars, with 
only a single memory location associated with them unless we specify otherwise. We 
declare a variable to be an array by specifying its dimension or size in a dimension 
statement. Consider the following. 


120 DIM ALPHA(50) 


This statement declares the variabie alpha to be an array and insirucis BASIC to set 
aside fifty memory locations for it. DIM is a BASIC keyword—-an abbreviation for 
dimension We may declare an array to have as many elements as we wish within the 
limit of available computer memory. The early 8K PETs impose a maximum array size of 
255. Generally speaking, it is best not to request more array space than needed If we 
were to use an array name in a program without formally declaring its size in a 
dimension statement, BASIC will arbitrarily assign it a size of ten This means that 
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subscript values from one to ten will be legal. As mentioned earlier, some dialects of 
BASIC provide a zero array element as well This automatic dimensioning feature can 
produce an error on Some computers if we reference an array before we dimension it 
For example 


200 X(I) =A*B+C 


220 DIM X(25) 


In this case, BASIC automatically sets aside ten memory locations when it 
encounters statement 200 However, when statement 220 is reached, BASIC is told to 
change the size to twenty-five. Many versions of BASIC will consider such a sequence 
to be an error and interrupt the program with a message The PET, the Apple, and the 
TRS-80 all permit this redimensioning of arrays. However, a CLEAR statement must be 
executed before the redimensioning statement is encountered on both the Apple and 
the TRS-80. While such a technique has some limited use, it should be avoided 

Sometimes arrays are known by other names, such as. vector, matrix, table, and 
list. Sometimes the term array is used to refer to a one-dimensional array and the 
term matrix is reserved for an array with more than one dimension However, this is not 
a rule and you will find many exceptions to it. We declare an array or matrix to have two 
or three dimensions as follows: 


110 DIM TABLE(5, 10) 
120 DIM MAT(2,3,2) 


The first statement declares TABLE as a two-dimensional array or matrix 
with five horizontal rows and ten vertical columns. Array MAT is a three-dimensional 
array with dimensions of two, three, and two More about multi-dimensional arrays will 
be presented later in Section 7.9. 


EXERCISE SET 7.1 


1 Write a program that loads the following arrays 


(a) Array Y to contain the series of numeric values between one and fifteen 
Begin with memory location one. 


(0) Array XRAY to contain ail positive odd values between zero and twenty-five 
inclusive 
(c) Array A to contain the first twelve multiples of seven. 


2. Write a program that loads the matrix 8 with the squares of the first fifteen 
integers Include a second loop which prints each integer followed by its square. 
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nN 


The output should look like this: 


1 
2 4 
9 


Answer the following questions about this program 


100 DIM X(13) 

110 FOR I=1T0O 13 
120 LET X(i) =1+1 
130 NEXT! 


(a) Whatis the value of X(1)? 

(b) What is the value of X(13)? 

Sit ulaic acon 

ate values in the boxes below The boxes are intended to be a visual 
representation of computer memory 


ie a computer by hand-tracing the following programs. Write the annranri- 


(a) 100 DIM X(12) 
110 FOR I=1 TO 12 
120 LET X(I)=!*245 
130 NEXT I 


X(1) X(2) X(3) X(4) X(5) X(6) X(7) X(8) X(9) X10) X(1 1) X(12) 


titi t ty ey ty 


(b) 100 DIM X(12) 
110 FORI= 12 TO 1STEP —1 
19M LET XM =| 
130 NEXT! 


X(1) X(2) X(3) X(4) X(5) X(6) X(7) X(8) X(9) X(10) X 
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7.9 USING AN ARRAY AS AN 


AGCUMULATOR 


In Section 6.3, we discussed the use of the random number generator to simulate the 
toss of a coin and the roll of a die There we presented a program called COINTOSS 
that simulated the coin tossing process and kept track of how many heads and tails 
had been tossed We also said that the toss of a die could be simulated in the same 
manner, but did not illustrate doing so because we would need six accumulators—one 
for each die face An array provides an easy solution to this problem. Following we 
present an algorithm for a program which simulates a die toss This algorithm follows 
very closely the model of COINTOSS, except for the use of the array as an 
accumulator 


DIETOSS. 

declare numeric |,X,FACE(6),R1,R2 

loop while | goes from 1 to 6 
set FACE(I) to 0 

end loop 

set R1 to 1 

set R2 to 6 

loop while | goes from 1 to 50 
X <— RND(R1-R2)* 
increase FACE(X) by 1 

end loop 

put(“‘FACE”’""COUNT"’) 

loop while | goes from 1 to 6 
put(l,-FACE(I}) 

end loop 

end 


Notice how we use X as the subscript in the increase statement within the first 
loop, rather than the loop index. In the previous statement, X was randomly assigned a 
value in the range of 1 to 6. If, for example, a five were tossed FACE(5) would be 
incremented by one. This program translates into BASIC easily 


100 REM ~- DIETOSS 1-1-81 

105 REM —- INPUT VARIABLES: R1, R2 

110 REM -— LOCAL VARIABLES: X 

115 REM -- OUTPUT VARIABLES: I, FACE(I) 


*We use RND(R1-R2) to indicate the algorithm for generating random integers in the range R1 to 
R2 
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120 DIM FACE(6) 

125 Ri=1 

130 R2=6 

135 FORI=1TO6 

140 FACE(I) = 0 

145 NEXT | 

150 FOR!I!=1TO50 

155 X = INT((R2 — Ri-+ 1) * RND(1) 4+ R1) 
(Use 155 X = RND(6) on TRS-80 ) 
160 FACE(X) = FACE(X) + 1 
165 NEXT I 

170 PRINT "FACE’,"COUNT' 
175 FORI=1TO6 


180 PRINT I,FACE(I) 
185 NEXT I 

999 END 

RUN 

FACE COUNT 
$ 10 

2 6 

3 A 

4 6 

5 12 

6 12 


When we simulated the die toss fifty times we tossed ten 1’s, six 2’s, four 3’s, six 
4's, twelve 5's, and twelve 6’s 


SORTING WITH AN ARRAY 


We have discussed the process of computing ihe mean oi a data set in Section 5 4 and 
again in this chapier A second measure of ihe ceniral tendency of a data set is the 
median or middle value of the data In order to find the middle value, the data set must 
be arranged in ascending or descending order Consider the following data set 


2 34 42 30 32 12 29 34 22 98 99 
We can easily sort this array by hand, which would then look like this: 


2 12 22 29 30 32 34 34 42 98 99 
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Since there are eleven data values the center value is in position six. But suppose we 
have 1000 data values. A hand sort becomes tedious. We will consider how the 
computer can conduct a sort and locate the median. 

When we compute the arithmetic mean of a series, we merely add each item into 
a running total. Only three variables are required: (1) the input item, (2) the accumulator 
or running total, and (3) a counter to keep track of the number of individual items 
actually accumulated To compute the median, however, each individual value must be 
stored in the computer This will require that data be read into an array 

Let us look at the unordered sequence: 


2 34 42 30 32 12 29 34 22 98 99 


One way to sort this data is to start by looking at the second element (34) 
Determine if it is smaller than the first element If it is, interchange the two numbers. In 
pseudocode we can express this task as follows 


if ( X(l) > X(l4+ 1) } [interchange | 


What we desire here is to interchange two values in an array whenever the 
leftmost one is larger than the rightmost one of the pair The interchange procedure is 
ambiguous and requires refinement Imagine the following situation. 


In our example X(1) has the value 4 and X(2) has the value 1 The logical expression will 
evaluate to true and the interchange procedure should be performed. If we move 4 
from X(1) to X(2) then the value 1 willbe destroyed and both memory cells will contain 
the same value. Thus, we will have to save the value 1 somewhere before the value 4 is 
transferred to X(2) We can accomplish this by adding a temporary variable called 
TEMP. 


TEMP 


If we move the contents of X(2), to TEMP, the contents of X(1) to X(2), and the 
contents of TEMP to X(1) in that order, the exchange will occur correctly. Algorithmi- 
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cally, we would write: 


TEMP <— X(2) 
X(2) <— X(1) 
X(1) — TEMP 


Now the interchange procedure is expressed unambiguously This block is the heart of 
the bubble sort algorithm whereby the larger values bubble to the top of the array. Here 
is a complete bubble sort programmed in BASIC 


190 REM —-- SORT ARRAY X 
200 FORI=2TON 
210 FOR J=1TOI— 1 


220 IF X(l) > X(J) THEN 260 
230 LET TEMP = X(I) 

240 LET X(i) = X(J) 

250 LET X(J) = TEMP 

260 NEXT J 

270 NEXT I 


To understand this sort routine we need to extend our treatment of loops slightly 
to include the concept of nested loops. Notice that there is a loop with the index I 
beginning at statement 200 and ending at statement 270. Within this loop is a second 
loop with index J beginning at statement 210 and ending at statement 260 The inner J 
loop is entirely enclosed within the outer I loop; in other words, it is nested within the 
outer loop. Loops can be nested in this way any number of times, as long as each loop 
has a different index, and is completely nested within all outer loops. 

With this background, we will find it easier to understand the working of the sort 
routine For each pass through the outer loop we will list |, the range of J and the 
rearranged array X(l). First let us recall the unsorted array: 


2 34 42 30 32 12 29 34 22 98 99 


Pass | Range of J Rearranged X(I) 


1 2 1 to 1 The inner loop has one iteration. 
The value to the ieft of 34 is less 
than 34 Therefore no exchange 
occurs. 

2 34 42 30 32 12 29 34 22 98 99 


2 3 1 to 2 The inner loop has two iterations. 
The values to the left of 42 are 
both less than 42 so no 
exchanges occur 
2 34 42 30 32 12 29 34 22 98 99 
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Pass I Range of J Rearranged X{I) 


3 4 1to3 The inner loop has three iterations. 
On the first iteration nothing 
happens because 30 is bigger 
than 2 On the second iteration 30 
and 34 are exchanged. On the 
third iteration 34 and 42 are 
exchanged. 

2 30 34 42 32 12 29 34 22 98 99 


4 ss) 1 to 4 2 30 32 34 42 12 29 34 22 98 99 


You may complete this sequence if you like It should be clear that the outer loop 
moves along the array starting at position 2. At each position of the outer loop, the 
inner loop orders everything to the left of that point. For example, when | = 5 the inner 
loop has sorted the first five elements of the array When! = N (11 in our case) the sort 
is complete. This process of sorting illustrates the power of the FOR-NEXT loop used 
in conjunction with subscripted variables 


THE MEDIAN 


Now that we know how to sort an array, we are prepared to find the median of a data 
set. Recall that we said the median was the middle value Data sets with an odd number 
of elements will always have a middle element. If the number of elements is even we 
average the values of the two ‘‘middle”’ elements. We will start by assuming thai the 
data set has an odd number of elements and assign the middle value to the median. If 
the number of elements is even, we correct this assignment. The procedure can be 
expressed in pseudocode as follows: 


I9 <—INT(N / 2 + 1) (19 is the center element when N is odd.) 

MEDIAN < X(I9) 

if (N is even) 

[ MEDIAN <— (X(I9) + X(I9—1)) / 2] 

Here we assume that the array X contains the sorted vector and that N indicates 
the operational size of X. The logical expression, (N is even), requires further 
refinement. Divisibility by two is a test for evenness. In Section 6.2 we developed a 
divisibility test Using this test, we can refine the logical expression as follows: 


ifN / 2 = INT(N / 2) 
An alternate and simpler expression that will test for N even in this special case is 


if N = 2* (I9 — 1) 
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Our algorithm can be translated into BASIC as follows: 


305 
310 
320 
330 
340 
360 


REM —- DETERMINE THE MEDIAN 
19 = INT (N / 2 + 1) 

LET MEDIAN = X(I9) 

IF N / 2 <> INT(N / 2) THEN 360 
LET MEDIAN = (X(I9) + X(I9—1)) / 2 
PRINT "THE MEDIAN IS ";MEDIAN 


Here is the completed program in BASIC: 


100 
101 
102 
103 
104 
105 
110 
115 
120 
420 
135 
140 
145 
190 
200 
210 
220 
230 
240 
250 
260 
270 
275 
277 
280 


AON 


om ws 


300 
305 
310 
320 
330 
340 
350 


REW -- MEDIAN 

REM 

REM PROGRAM TO SORT AN ARRAY 
REM AND DETERMINE ITS MEDIAN 
REM 


DIM X( 41) 
LETN= 11 
REM —-—- LOAD AND ECHO ARRAY 
FORi=j1TON 
READ XiI) 
PRINT X(1);" °; 
NEXT | 
PRINT 
REM -- SORT ARRAY X 
FORI=2T0ON 


FORJ=1TOI-— 1 
IF X(1) > X(J) THEN 260 


LETS = X(I) 

LET X(i) = X(J) 

LET X(J) =S 
NEXT J 


NEXT | 
REM -- PRINT SORTED ARRAY 
PRINT "HERE IS THE SORTED ARRAY:' 


FORI=1TON 
PRINT Kinet" 
NEXTI 


REM -— DETERMINE MEDIAN 

If = INT(N / 2 + 1) 

LET MEDIAN = X(I9) 

IF N / 2 <> INT(N / 2) THEN 360 
LET MEDIAN = (X(I9) + X(I9—14)) / 2 
REM -- PRINT MEDIAN 
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360 PRINT "THE MEDIAN IS ‘;MEDIAN 
500 DATA 2,34,42,30,32,12,29,34,22,98,99 
510 END 


Here is a run of the program: 


RUN 

2 34 42 30 32 12 29 34 22 98 99 
HERE 1S THE SORTED ARRAY: 

2 12 22 29 30 32 34 34 42 98 99 
THE MEDIAN IS 32 


EXERCISE SET 7.2 


1 Write a program that generates the dependent variable values in the following 
equations. Store each value in an array Y Add loops to the program to find the 
largest and smallest values of y. Print out these values. 


(a) y=3x° + 2x + 5fromx = —5 tox = 10 in integer steps 
(b) y=4x"? — 3x? 4+ 1 fromx = —20 tox = 4 in integer steps 


2 Generalize the program MEDIAN so that it does the following’ 


(a) Reads a data set of any size determined by the user (maximum of 100 data 
elements), 


b) Prints the data set in the order read, 


(D) 

(c) Sorts the data set in ascending order, 
(d) Prints the sorted data set, 

(e) Computes the median of the data set 


3. Modify program MEDIAN so that it accepts data from the keyboard. A negative 


value should terminate input. The program should sort and print the array in 
descending order and evaluate the median and mean 


READING A DATA SET MORE 
THAN ONCE 


In more complex programs, it may be convenient to read a data set more than once 
The computer uses a pointer to indicate which value in the DATA statements will be 
read next. We can reset the pointer within our program by inserting a RESTORE 
statement. This moves the data set pointer to the first data value. It should be kept in 
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mind that BASIC considers all the data values in all the DATA statements within a given 
program as a single data set, no matter where those statements may be—even if we 
consider them to be several data sets The only control we have of the data set pointer 
is to move it to the beginning However, it is possible to use a loop that will read and 
waste (that is, ignore) a certain number of data values, in order to move the pointer to 
the desired location Consider the following: 


100 DIM X(15) 

105 FORI=17015 

110 READ X(I) 

115 NEXT! 

130 RESTORE 

135 DIM Y(715) 

140 FORI=1TO15 

150 READ Y(I) 

160 NEXT I 

170 DATA 3,2, 1,6,9, 15, 10,8,7,9,12,13,8,7,9 


This program loads both arrays X and Y with the same data set Without the 
RESTORE statement we would get an OUT OF DATA error at our first attempt to 
execute statement 150. Of course, there is a simpler way to load Y than that shown 
above 


TWO-DIMENSIONAL ARRAYS 


In many problems we deal with two-dimensional displays of data such as the 
percentage of car sales by car size by region, which is displayed in Table 7 1. It is 
important that we be able to retain this two-dimensional format when we read 
information into the computer The two-dimensional array is designed for that purpose. 
The term matrix is frequently applied to such an array, particularly when it is used to 
manipulate data 


Table 7 7 
Percentage of Sales by Car Size by Region 


Size 


Region Small Medium Large 
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We need some additional terminology to understand the two-dimensional array 
Each vertical alignment of data is called a co/umn (columns stand upright) while each 
horizontal alignment is called a row. If our array has more than ten rows or columns it 
must be explicitly dimensioned We recommend dimensioning in any case It is 
necessary in the dimension statement to distinguish between rows and columns. The 
table above has dimensions of four rows by three columns. An appropriate dimension 
statement for this table would be: 


100 DIM A(4,3) 


Rows always come before columns in referring to dimensions. An 11 by 2 array would 
have eleven rows and two columns. 

suppose we wish to read the data above into an array and preserve its natural 
order We need an array such as follows: 


3 
3 
3 
3 


Each piece of data has a double subscript to identify its place in the table. We 
need to get the data values into the array Twelve assignment statements would do the 
job. Or, we might consider three loops of four repetitions. Both these methods are 
cumbersome and fail to take advantage of the combination of FOR-NEXT loops and 
subscript notation. 

A better solution is to use a pair of nested loops. We may write’ 


100 FORI-1TO4 
110 FORJ=1TO3 


120 READ A(I,J) 
130 NEXT J 
140 NEXT! 


We might try hand-tracing this fragment that loads the matrix. On the first pass 
I=1 and upon entry of the J loop J=7 Line 120 then means READ A(1,1). We 
encounter NEXT J which increments J to 2 and statement 120 then means READ 
A(1,2). Next we read A(1,3), leave the J loop, encounter NEXT I and increase | to 2. 
We then enter the J loop again and read the second row of the array This process 
continues until all four rows are read. 

We emphasize this detail because it is important to know the order in which the 
data must appear in the data statements. The order is obviously all first row data, then 
all second row data, and so forth. An appropriate data statement would be 


150 DATA 75,15, 10,40,50, 10,60,25, 15,47 ,46,7 


lf we put the above program fragments together (statements 100 through 150) and run 
the program we should load matrix A Suppose we wish to reproduce the table. The 
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following nested loop structure will accomplish this: 


200 FORI=1TO4 
210 FORJ=1TO3 


230 PRINT A(i,J);" “; (blank space is needed only for the 
240 NEXT J Apple) 

250 PRINT 

260 NEXT I 


Or, we could simply insert the following statements in the loop structure that loads A. 


125 PRINT A(I,J);"'; 
135 PRINT 


Our output 1s: 


75 15 10 
40 50 10 
60 25 15 
47 467 


The blank following the array reference in statements 230 and 125 cause a single 
space to be printed between the columns on a line. lf you are not using an Apple, you 
can probably omit this blank. The semicolon in the same statements keeps the printer 
on the same line as a row is printed Statements 135 and 250 move the printing head to 
the next line, cancelling the effect of the semicolon as the printing of a row is 
completed. 

We include here a general program for loading an M by N array: 


100 FORI=1TOM —» Moves row pointer 
110 FORJ=1TON — Moves column pointer 


120 READ A(I,J) — Read data item 

130 NEXT J 

140 NEXT I 

150 DATA —+ Enter in normal reading order — 


left to right by rows. 


EXERCISE SET 7.3 


1 Load the following tables: 
(a) Load into array B 

1.5 2.6 11 

3.2 2.4 1.5 
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(b) Load into array C- 
23 15 37 41 62 
14 19 21 35 15 
22 34 11 29 12 


2. Load an identity matrix of dimension four by four An identity matrix has the 
number 1 everywhere on the left-top to bottom-right diagonal and zeros every 
place else. You should be able to load this array without using data lines. 


3 Print out the arrays in problems 1 and 2 


MATRIX OPERATIONS 


There are several important operations involving arrays which we will discuss here. 
These are’ 
1 Matrix addition (including subtraction), 


2 Matrix multiplication, and 
3. Matrix inversion. 


These operations will be defined in the usual mathematical sense Later in this chapter 
we will illustrate the use of two of these operations in solving practical problems. The 
use of matrix inversion will be discussed in Chapter 12. 

Matrix addition is defined as an element by element addition of two matrices of 
the same dimensions. Addition of two simple matrices is indicated below: 


3 2 1 0 4 2 
0 1 + 2-1 = 2 0 
—1 0 0 3 -—1 3 


We could write a general program for this operation of addition as follows: 


100 FORI=1TOM 
110 FORJ=1TON 


120 LET C(i,J) = A(i,J) + B,J) 
130 NEXT J 
140 NEXT I 


A, B, and C matrices all have the same dimensions. Subtraction is accomplished by 
using a minus sign in place of the plus sign 

Matrix multiplication is a more complicated process. Two matrices may be 
multiplied only if the number of columns of the left matrix equals the number of rows in 
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the right matrix. For example, we can multiply the following two matrices together 


3 2 
[2 1 —1] 0 4 
1 —1 


However, if we were to reverse their order so that we attempted to multiply in the 
following manner: 


0 4 2 1 —I 


the multiplication could not be completed since the left matrix has two columns while 
the right matrix has one row. This rule arises because of ihe manner in which matrix 
multiplication is performed Each element of the product matrix is obtained by applying 
the entire row of the left matrix to a column of the right matrix. Let us perform the 
multiplication: 


[3 2 


[2 1 —]] ; / 
1 -1 


We start by applying the first row of the left matrix to the first column of the right in the 
following manner 


3 
2 4 —-4 O} =2*3+4+1*0+4(-1)*1 
i} =6+0-1 


=5 


Five is the value of the 7, iin elernent of ihe product mairix Next, we apply the first row 
to the remaining columns of the right matrix. We obtain 


2 
2 1 1 4| =2*241*44(-1)*(-1) 
~{| =44441 


= 9 
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Nine is the 1,2th element of the product matrix. There are no more columns in the 
second matrix so we have generated the entire first row of the product matrix. The 
second row is obtained by applying the second row of the left matrix in the same 
manner. But the left matrix has no second row so the entire product is 


[5 9 


Note that the number of rows in the product agrees with the number of rows in the 
left matrix The number of columns of the product agrees with the number of columns of 
the right matrix. 

Programming the matrix multiplication is more complex. We present a program 
fragment which accomplishes this multiplication. This procedure is documented in the 
Library of Subroutines. (Appendix B , p B15) 


100 FORI=1TOM 
170 FORJ=1TOL 


120 FORK=1TON 

130 LET C(I,J) = C(I,J) + A(I,K) * B(K,J) 
140 NEXT K 

150 NEXT J 

160 NEXT I 


Note the use of the triple nested loops. M is the number of rows in the left matrix, L is 
the number of columns in the right matrix, and N is the number of columns in the left 
matrix 

The third important matrix operation is inversion Inversion of a matrix means 
finding another matrix, which, when multiplied by the given matrix, yields an identity 
matrix. In discussing inversion we will only consider matrices that have the same 
number of rows as columns (called square matrices). The identity matrix is a square 
matrix such as that shown below: 


1 0 0 
0 1 0 
0 0 1 


Note. The diagonal from top left to bottom right is filled with ones. All other elements 
are zero. This is a three by three identity matrix. One can be written for any dimension. 
A subroutine for inversion is contained in the Library of Subroutines (Appendix B, 
p. B17) Its use will be discussed in Chapter 12. 
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7.11 ORDER EXPLODING USING ARRAYS 


Consider a very simple fabrication operation. A skateboard manufacturer produces 
three models of skateboards— 


Model A(1)— Standard, 
Model A(2}— Deluxe, and 
Model A(3)— Super 


These boards are fabricated from some combination of the following five compo- 
nents— standard wheel set, heavy duty wheel set, reinforced board, laminated board, 
and a plastic guard. 

The standard model is fabricated from two standard wheel pairs and a reinforced 
board The deluxe model is fabricated from two standard wheel pairs, a laminated 
board and a plastic guard Finally, the super model has two heavy duty wheel sets, a 
laminated board and two plastic guards This information could be collected in a 
two-dimensional array as in Table 7.2. 


Table 7 2 
Skateboard Models and Their Components 


Heavy 
Std. Duty Reinf. Lamin. 
Wheels Wheels Board Board 


Model 


A(1)—Standard 
A(2)—Deluxe 
A(3)— Super 


Guard 


Suppose the manufacturer is to fabricate an order for 100 standard models, 150 
deluxe models, and 75 super models To find the number of each component needed 
to fill this order we could do the necessary arithmetic. This would yield: 


900 siandard wheel sets 
150 heavy duty wheel sets 
100 reinforced boards 
225 laminated boards 

300 plastic guards 


Now perform a matrix multiplication. Multiply the order, written as a one by three matrix, 
by the component array above 
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2 0 1 0 0 
[100 150 75] 200 1 1 
0 2 0 1 2 
The result is the array 
[500 150 100 225 300] 


which is the number of components needed. This process in which an order for 
assemblies is converted into a corresponding set of components is called order 
exploding. We would quickly see the advantage of the matrix multiplication over the 
hand calculation if we were dealing with more complex fabrications where the number 
of components may tun into the hundreds 

The matrix multiplication for order exploding may be simplified somewhat from 
that shown in Section 7 10, since we are dealing with a one row matrix on the left We 
write’ 


100 FORJ=1TOL 
110 FORK=1TON 


120 LET C(J) = C(J) + A(K) * B(K,J) 
130 NEXT K 
140 NEXT J 


The matrix C will have the number of each component needed to fill order A. 

We write here a general program that will allow the user to read the component 
matrix from data lines, to enter the order matrix from the keyboard, and to calculate 
needed components. 


100 REM -- EXPLODE 

105 REM PROGRAM TO EXPLODE AN ORDER 
110 REM —- INPUT VARIABLES: B(N,L),A(N) 

115 REM -- LOCAL VARIABLES: J,K,N,L 

120 REM —- OUTPUT VARIABLES: I,C(N) 

125 LETN=3 : LETL=5 

130 REM -— LOAD COMPONENT MATRIX 

135 FORI=1TON 

140 FORJ=1TOL 


145 READ Bil,J) 
150 NEXT J 
155 NEXT I 


160 REM -- INPUT ORDER 

165 FORI=1TON 

170. PRINT “ENTER QUANTITY OF MODEL A(‘jI;’).": 
175 INPUT A(I) 
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180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
235 
240 
245 
250 
255 
260 


NEXT I 
REM —- MATRIX MULTIPLICATION 
FORJ=1TOL 

FORK=1TON 

LET C(J) = C(J) + A(K) * B(K,J) 

NEXT K 
NEXT J 
PRINT 
REM —- PRINT COMPONENT LIST 
PRINT 'HERE ARE COMPONENTS NEEDED" 
PRINT 
PRINT "COMPONENT #","QUANTITY' 
FORI=1TOL 

PRINT 1,C(i) 
NEXT | 
DATA 2,0, 1,0,0,2,0,0, 1,1,0,2,0,1,2 
END 


Here is a run of this program for the skateboard fabrication problem. 


ENTER QUANTITY OF MODEL A(1).7 10U 
ENTER QUANTITY OF MODEL A(2).? 150 
ENTER QUANTITY OF MODEL A(3).? 75 


HERE ARE THE COMPONENTS NEEDED 


COMPONENT # QUANTITY 


Ok WN =a 


500 
150 
100 
225 
300 


Note that at this point, if one had the inventory of components in array |, subtraction of 
array © from array | would provide an adjusted inventory or indicate where deficiencies 
of components exist 


EXERCISE SET 7.4 


1 Use the general program on order exploding to solve the following problem. The 
array of assemblies versus components for a manufacturer of heaters is 
displayed on the following page. 
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Components 
Heater 1 2 3 4 5 6 7 8 9 10 11 12 13 14 
H( 1) OO 2 1 5 3 4 0 0 0 2 4 1 2 3 
H{2) 1 O 1 5 3 7 1 1 1 2 4 1 0 1 
H(3) 1 0 0 0 0 0 0 1 1 2 4 1 2. 4 
H(4) 1 0 0 2 2 0 90 1 1 2 4 1 1 1 
H(5) 2 2 1 5 3 = =1 | | 1 2 4 | 2 2 


(a) Construct data lines from which this array may be read into array B in 
proper order 


(b) The following order has been received from a department store chain: 


Heater H(1) 475 
Heater H(2) 200 
Heater H(3) 750 
Heater H(4) 275 
Heater H(5) 100 


Enter this order at the keyboard and determine the components needed to 
fill the order 


2. Write a program that will generate 200 random integers in the range from five to 
fourteen. Tabulate and print out the number of each integer obtained. How many 
of each integer would you expect to find when a total of 200 is generated? 


3. Assume an inventory matrix for problem 1 as follows: 


1) i(2) (3) (4) (5) (6) 7) 
1350 750 650 6000 6000 2000 900 


(8) 9) 10) (11) (12) 1( 713) 114) 
1400 2100 3300 7500 2500 2500 4000 


Write a program to subtract the component matrix developed in problem 1 from 
this inventory matrix. What do negative entries in the difference matrix repre- 
sent? 


Review 


The addition of arrays and their combination with FOR-NEXT loops introduce the real 
power of the computer in performing repetitive processes on large dala sets. We 
summarize the new terms and the BASIC syntax introduced in this chapter 
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ONE-DIMENSIONAL ARRAY aset of memory locations addressed with a BASIC 
variable name plus a number called a subscript, for example, A1(8) references the 
eighth location in array Al One-dimensional arrays are suitable for storing lists. 
(Section 7.4) 


TWO-DIMENSIONAL ARRAYS aset of memory locations addressed with a BASIC 
variable name plus a pair of numbers called subscripts, for example, B(2,3) references 
the element of B which is in the second row and the third column. (Section 7.4) 


DIMENSIONING _ the process of fixing the size of an array. (Section 7 4) 


MATRIX amathematical term frequently used to describe an array The mathemati- 
cal notation used with arrays and the manipulation of arrays predates computers 
(Section 7 4) 


NESTING the process of enclosing one structure entirely within another We 
considered ihe nesting of loops which requires distinct loop indices. (Section 7 6) 


Basic SYNTAX 


DIM a BASIC keyword used to indicate that a dimension assignment follows For 
example, DIM A9(23) saves twenty-three locations for the one-dimensional array AQ. 
(Section 7 4) 


PESTORE BASIC syntax that moves the internal data set pointer to the first data 
value in the program. Some dialects of BASIC require the use of RESET instead of 
RESTORE. (Section 7 8) 


8.1 


8.2 


oO TRINGS AND 
oO TRING 
FUNCTIONS 


INTRODUCTION TO STRINGS AND 
oOTRING FUNCTIONS 


In this chapter; we will introduce methods of processing character data. These 
methods allow us to solve such practical problems as alphabetizing, answer screening, 
searching, and formatting of both numeric and character information These string- 
handling facilities of BASIC expand our capability to use the computer for other than the 
processing of numerical data. 


CHARACTER DATA AND THE ASCII 
CODING SYSTEM 


So far, we have been primarily concerned with processing numeric data However, 
most versions of BASIC include powerful facilities that make it easy for us to process 
character data. Strictly speaking, any symbol on the keyboard is a character Each 
character is stored internally by the computer using a numeric coding scheme. The 
most common internal coding schemes are EBCDIC and ASCII The latter, an acronym 
representing American Standard Code for {Information Interchange is used by the 
Apple, the PET, and the TRS-80 and most other microcomputers and minicomputers 
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8.3 


Table 8 7 
ASCII Character Set 


Letters (A-Z) 


Digits (0-9) 
Special Characters 


In the ASCII coding system-—pronounced ‘‘askey'’—alphabetic characters, 
commonly called letters, have codes beginning with 65 for the letter A and ending with 
90 for the character Z. Numeric symbols, digits, have codes beginning with 48 for zero 
and ending with 57 for nine. In addition to letters and digits, you have a variety of other 
characters on the keyboard, including the following $ # °%&*?/()+4+ Allthese 
symbols— usually called special characters—have ASCII codes also In addition, ASCII 
codes are assigned to a series of nonprinting characters, which are used to control the 
operation of the computer For example, a carriage return has a code of 13, the bell 
has a code of 7, and the space or blank character is represented by the ASCII code of 
32 The codes are summarized in Table 8.1. 


STRING VARIABLES 


Generally speaking, we do not need to concern ourselves with the computer's internal 
coding system, but for certain string processing applications, a basic knowledge of the 
internal coding system is desirable. A string is a sequence of characters or symbols 
enclosed within quotation marks. Just as BASIC provides for numeric constants and 
variables, it also provides for string constants and variables. Let us consider the 
following: 


100 LET AS = "ABCDEF'" 


In this statemeni, AS is the name of a siring variable. While the rules for naming string 
variables are basically the same as for numeric variables, the dollar sign ‘*$’’? must 
always be the last character in string variable names in order to distinguish string 
variables from numeric variables. The character sequence ABCDEF contained within 
quotation marks in statement 100 is a string constant This is a string assignment 
statement that assigns the value of the constant to the string variable in a manner 
similar to arithmetic assignment statements. Only string variables may be assigned 
string values 
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TRANSLATING FROM ASCIT CODE 
TO CHARACTER AND BACK 


Most versions of BASIC provide a series of string functions for use in processing 
character data. During the course of this chapter, you will be introduced to ten string 
functions, most of which are available on the Apple, the TRS-80 and the PET The 
reader should be forewarned that there is considerable variation among computers on 
string handling functions. We will demonstrate the most common syntax and also point 
out some common variations.* 

The first two functions to be introduced are complements of each other One 
function translates a single numeric ASCII code into a character and the other 
translates a single character into its equivalent ASCIl code Let us examine the 
following: 


100 LET A$ = CHR$(42) 
110 PRINT A$ 


In statement 100, a string assignment statement, the string variable A$ receives a 
string value from the CHR$ function Like arithmetic functions, we can think of string 
functions as black boxes that receive something, transform it, and produce output 


A$=| * CHR$S 42 


Output < Function <« _ Input 


In this case, we give the function the number 42 by enclosing it within parentheses, 
after which CHR$ transforms the number into an asterisk or star, which it passes to the 
string variable A$. The rules of BASIC permit an even more simple application that can 
be done in immediate mode as well as in program mode 


PRINT CHRS$(42) 


The computer will respond by printing a star. 

Let us pause here to take note of two technical points (1) The value passed to 
the function is called an argument. CHR$ accepts only a single argument, but some 
functions require more than one argument. (2) Note how the name of the CHR$ 
function includes a dollar sign ($) at the end just as in string variable names. Some 


*lf you are using some other microcomputer, we suggest that you consult the following book for 
information about your computer’ David A. Lien, The BASIC Handbook, 2nd. ed , San Diego: 
Compusoft Publishing, 1981 
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string functions have the dollar sign at the end of their name and some do not. The rule 
is that those string functions that yield string results must include the dollar sign in their 
name. Those string functions that return numeric results may not have a dollar sign in 
their name. All versions of BASIC impose a limit on the range of values that can be used 
as arguments for CHR$. Such limits actually specify the limits of the ASCII coding 
system for a given computer. Generally speaking, you can be safe if you limit the 
argument passed to the CHR§ to the range from zero to 127 The Apple, the TRS-80, 
and the PET all accept values in the range from zero to 255 Digital's MUBASIC will 
accept any positive numeric value but it will divide by 127 any value greater than 127 to 
obtain the actual argument. With some systems, values exceeding 127 are used for 
Graphic characters and jower case characters. The PET is an example. Values outside 
the range for a given machine may cause error messages if used 

Just as BASIC allows one to input an ASCIl code to the CHR$ function and 
receive a character in return, it also allows one to give a single character to a function 
known as ASC and receive the corresponding ASCII code in return. Here are three 
examples of its use. 


7] 100 LET J = ASC('S$’) 
110 PRINT J 

2 100 LET A$ = '$' 
4110 LET J = ASC(A$) 
120 PRINT J 

3 PRINT ASC(‘$") 


All three of the preceding program fragments are functional equivalents and will 
produce the same results—the number 36 will print on the screen It is also legal for 
one to write the following 


110 PRINT ASC(‘ABCDEF'’) 


However, BASIC will only return the ASCII code for the leftmost characier in the string. 
Using the CHR$ function in a loop will allow us to display the entire character set 
on the screen Enter and run the following program 


100 FOR! = 0TO 255 
110 PRINT CHRSI): 


120 NEXT! 


You may note some erratic behavior on the screen because some of the ASCIil 
characters have no graphic representation but do cause the computer to perform 
certain functions including carriage return, line feed, and clear screen, to name only 
three. PET output will be particularly erratic If you experiment with this program using 
the PET you will find that much of the output—roughly the first half that contains the 
letters and numbers—prints as black on white. This is because on the PET, ASCII code 
18 instructs the computer to reverse the screen image and print black on white. You 
can eliminate this annoyance by beginning the loop index at 32 
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If you try this little program on the Apple, you will find that it produces two copies 
of the same thing, suggesting that the Apple cannot distinguish upper from lower case. 
The fact is, that the Apple can tell upper from lower case as could be demonstrated if 
program output were directed to a printer However, the character generator that 
converts ASCIl codes to characters for screen display does not contain the necessary 
information to produce lower case characters and thus produces upper case 
characters instead Several kits are available to remedy this situation . 

The character set for the TRS-80 contains lower case characters and graphic 
characters in the interval between 96 and 191 On other computers, ASCII codes 
above 12/7 may include lower case letters. 

If you are using the PET, you will also notice that the screen becomes completely 
dark at one point. This is because CHR$(147) instructs the machine to clear the 
screen We obtain the same results with the Apple by coding the keyword HOME. 
TRS-80 users can obtain the same results with the keyword CLS. 


Clearing the Screen 


PET 100 PRINT CHR$(147) 
Apple’ 100 HOME 
TRS-80 100 CLS 


Note that clearing the screen does not destroy the copy of your program in the 
computer's memory, it just clears the copy on the screen. You may wish to satisfy 
yourself by trying to list your program after clearing the screen 


BASIC STRING OPERATIONS 


There are six basic string operations to be discussed in this chapter They are: 
String assignment, 

String comparison, 

String concatenation, 

String length determination, 

Substring selection, and 


oan bh Ww we = 


substring indexing. 


These six operations are basic to string manipulation. In addition, the use of several 
other functions will be discussed and illustrated. Because string assignments have 
been illustrated in detail in the process of treating the CHR$ and ASC functions, they 
will not receive additional treatment here. 
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oTRING COMPARISON 


Strings can be compared in IF-THEN statements in a manner similar to numeric 
quantities. For example, if a particular program wishes to give the user the option of 
performing a certain activity or not, the program might solicit user choice in a sequence 
of statements like the following: 


100 PRINT "YOU MAY CHOOSE TO PERFORM EXPERIMENT FIVE OR 
NOT’ 

110 PRINT "INDICATE YOUR CHOICE (YES OR NO)’ 

120 INPUT R$ 

130 IF R$ <> "YES' THEN 200 


the BASIC code for experiment five would go here 
200 REM 


Here statement 120 inputs the user’s response as a string In statement 130 the 
response in R$ is compared with the string constant YES. If the two are not exactly the 
same, the expression is evaluated as false and the program continues with statement 
200 Only if the string variable and the constant are exactly the same will the block of 
statements associated with experiment five be executed The following strings will not 
be found equal to YES’ 


1 "YES OR NO' 
yy u YES' 
3 "VYES' 


While leading blanks will cause strings to be unequal, for example in comparing “YES' 
with " YES", trailing blanks may not. This is because some computers automatically 
trim trailing blanks from input strings. 

Thus far, we have been comparing strings for equality or the absence of equality 
But, it is also possible to determine whether one string is greater than or smaller than 
another string. Such comparisons are the basis of sorting names into alphabetical 
order. Consider ihe following: 


— ek Ree 


170 tf ‘ABU < ‘OeEr' Th 


NPRING TRUC’ 
When this statement is executed, the word "TRUE" will be printed because the 
computer will determine which is greater in the same way we would if we were sorting 
the strings into ascending alphabetical order Care should be taken, however, when 
using less than or greater than comparisons for strings, if one or both strings contain 
either special characters or digits. When either case prevails, the Same program may 
produce different results on different computers. This is particularly important in 
programs which sort character strings. The Apple, the TRS-80, and the PET all will 
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produce the same results only when upper case letters and numbers are present in 
strings 


OoTRING CONCATENATION 


Another basic string operation is concatenation—the process of joining one string to 
another The concatenation operator is the plus sign ‘“+’' Some computers allow or 
even require the use of the ampersand ‘'&"’ instead. The Apple, the PET, and the 
TRS-80 all require the plus sign. Here is an example: 


100 LET A$ = B$ + C$ 


oince the plus sign is also used in arithmetic assignment statements to indicate 
addition, we must be careful to avoid confusion. In arithmetic assignment statements, 
the plus sign is an arithmetic operator causing addition to occur; but in string 
operations, it is a concatenation operator causing two or more strings to be joined. The 
following program fragment will distinguish the two operations: 


10 PRINT 1+ 1 
20 PRINT i 4 i 
90 END 


Statement 10 will cause the value 2 to be printed—the result of addition. In 
contrast, statement 20 will cause the string "11" to be printed—the result of 
concatenation. Thus, we can see that concatenation merely joins two strings together 
in the same way that two box cars might be coupled in a train. More than two strings 
can be concatenated in the same statement. The following examples will illustrate. 
Attempt to determine what each fragment will do before you run them. 


| 100 PRINT "MERRY CHRISTMAS' + CHRS$(38) + "A HAPPY NEW YEAR" 
2 190 LETS$=" 

200 FORI=1TO 25 

210 LET S$ = S$ + CHRS$(42) 

220 NEXTI 

230 PRINT S$ 
Statement 190 might be confusing. It simply initializes the string S$ to a null or empty 
string. 


OTRING LENGTH DETERMINATION 


In certain cases, we need to know how many characters a particular string contains; 
that is, we need to know the length of a particular string. BASIC itself imposes a 
maximum string length, which differs from one computer to another The Apple, the 
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PET, and the TRS-80 all have a maximum string size of 255—as do most other 
versions of BASIC. We should point out that it may not be possible to enter a single 
string of length 255 all at one time because of a buffer size limitation Under such 
circumstances, it will be necessary to enter a long string in sections and concatenate 
the sections in the program 

The TRS-80 reserves a rather small area for string sforage under ordinary 
circumstances As a result, there is only enough room for fifty characters of string 
storage. Programs attempting to use more than that amount will terminate with an "OS", 
or operating system error The following program will Serve as an example. 


1 X = 255 

2 S$="" 

3 FORI=1TOX 
4 S$=S$ + "#' 
5 NEXT! 

6 PRINT S$ 

7 PRINT LEN(SS) 


This program merely builds a string of 255 "#" characters, one at a time, and 
then prints the string and its length. In order to avoid the error message mentioned 
above, type the following before you run the program: 


CLEAR SiC 


This command initializes all storage locations, resets pointers, and sets the string 
storage area at 510 bytes. Experimentation suggests that the value specified in the 
CLEAR command should be twice the string space required by the program 

In order to determine the length of a string, BASIC provides a length function 
called LEN. The function accepts a single argument that must be a string variable 
name, a string expression, or a string constant. LEN returns a numeric value indicating 
the number of characters in the string argument. Here is an example: 


100 LET S$ = "ABCDEF'" 
110 PRINT LEN (S$) 


or simply: 
INO PRINT LENCABCDEF') 


Both these fragments will cause the number 6 to be printed We can use the LEN 
function or its output anywhere that it is legal to use anumber The following statement 
will produce the value zero on most computers. 


300 PRINT LEN('") 


The length of a null string is zero. 
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SUBSTRING SELECTION 


A substring is a contiguous segment of a string. A substring is bound by the length 
restrictions imposed upon strings by a particular dialect of BASIC. Furthermore, since a 
substring is selected from a string, the substring cannot be longer than the string from 
which it is selected. Many versions of BASIC, including the Apple, the PET, and the 
TRS-80, provide three substring selection functions—two of which are actually 
specialized versions of the third. The functions summarized in Table 8.2 are: LEFT$, 
to select a specified number of characters from the left end of the string; RIGHTS, to 
select a specified number of characters from the right end of the string, and MID§$, to 
select a specified number of characters from a point specified within the string. The 
following fragment will illustrate: 


200 S$ = "TRUMAN HARRY S' 
210 L$ = LEFTS(S$,6) 

220 M$ = RIGHTS(SS§, 1) 

230 F$ = MIDS(S§,8,5) 


Statement 200 begins by assigning the string constant "TRUMAN HARRY S'" to S$. 
Statement 210 selects the leftmost six characters from S$ and passes them to L$ 
Similarly, statement 220 selects the rightmost character from S$ and assigns it to M$. 
Finally, F$ selects a substring from S$ beginning at character eight and having a length 
of five characters. By adding the following statements we can see the results of the 
process: 


240 PRINT S$ 
250 PRINT L$ 
260 PRINT M$ 
280 PRINT F$ 
290 PRINT F$;" ";M$;" ":L$ 


Try to predict what statement 290 will do before testing your program. If you use an 
Apple, you may have noticed that you can omit the semicolons without ill effect This 
process of implied concatenation is not common, and, as a rule, should be avoided 


Table 8.2 
Substring Functions 


Function Arguments 


(string name, substring length) 

(string name, substring length) 

(string name, location of first character of substring, sub- 
string length) 
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Some versions of BASIC, for example, Digital's MUBASIC, provide a function 
called SEGS. It is quite similar to the MID$ function with the single important exception 
of the third argument With MID$§, the third argument is the length of the substring to be 
selected, while with SEG$§, the third argument is the location of the last character in the 
substring to be selected. The following program fragments will illustrate 


100 REWNI--FRAGMENT #F i 
110 Z$ = ‘SUBSTRING SELECTION" 
120 PRINT MIDS(Z$,6,4) 


100 REM--FRAGMENT #2 
110 2Z$ = "SUBSTRING SELECTION" 
120 PRINT SEGS(Z$,6,9) 


Both program fragments will cause the string "RING" to be printed. It is likely that any 
computer you may be using will support one of these functions, but not both Also, 
remember the difference in the third argument. 

As suggested above, the LEFT$ and RIGHT$ functions are merely specialized 
versions of the MID$ function. The following pairs of statements are equivalents: 


A$=LEFT$(B$,5) AS=MIDS$(B§, 1,5) 


A$=RIGHTS(B$,5) A$=MIDS$(B$,LEN(B$)-5-+ 1,5) 
Some dialects of BASIC permit a statement like the following 
110 CHANGE A$ TOA 


Such a statement instructs the computer to translate each character of the string A$ 
into its equivalent ASCIl code and store the codes in successive elements of the array 
A, so that the ASCII code for the first character of A$ is in A(1), and the second in A(2) 
and so forth We can simulate such a function using the ASC and MID$ functions ina 
loop as the following program fragment illustrates 


100 REM-—-CHANGE 

110 DIM A(25) 

120 PRINT “ENTER STRING--NO WORE THAI 
130 INPUT A$ 

140 FORI = 1 TOLEN(AS) 

150 LET A(l) = ASC(MIDS$(A$,I, 1)) 

160 PRINT A(I);’ '; 

170 NEXT I 

180 END 
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RUN 

ENTER STRING-—-NO MORE THAN 25 CHARACTERS 
? HELLO 

72 69 76 76 79 


The numbers printed are the ASCII codes for the characters entered If you are not 
using an Apple computer, you can probably omit the single blank character printed in 
line 160 

The second and third arguments of MID$ and SEG$ and the last argument of 
RIGHTS and LEFT$ can be either numeric constants, numeric variables, or arithmetic 
expressions as long as thei values are not out of range More specifically, these 
arguments should either be or evaluate to positive numeric values, no greater than the 
length of the string. Furthermore, the third argument of SEG$ should not be less than 
the second argument In addition, the sum of the second and third arguments of MID$ 
should not exceed the string length If your program violates these specifications, the 
results will be unpredictable Some computers will print error messages and interrupt 
your program. Other computers will print error messages only when negative numeric 
values are used as arguments In any case, you will want to be sure that your programs 
do not violate either the syntax requirements of the computer language or common 
sense. 


SUBSTRING INDEXING 


The final string operation to be demonstrated is the substring indexing function \t 
performs two tasks: (1) it determines whether a substring is present in a string, and (2) 
if the substring is present, it returns a numeric value indicating the location of the 
Starting character of the substring in the string. 

Because neither the PET, the Apple, nor the TRS-80 provide a subsiring index 
function, we are forced to write our own. Fortunately, this is not a very complicated 
task Let us consider the following fragment. 


100 LET A$ = "TIPPECANOE AND TYLER TOO" 
110 LET B$ = "TYLER’ 

500 FORP = 1 TO LEN(A$)—LEN(BS) + 1 

510 IF BS = MID$(A$,P,LEN(B$)) THEN 540 
520 NEXTP 

530 LETP =O 

540 PRINT P 


This program makes successive comparisons of five character segments of A$, 
beginning with the leftmost five characters until a match occurs. In order to watch the 


145 


146 8 Strings and String Functions 


program work, insert the following statement: 
505 PRINT B$;" ";MID$(A$,P,LEN(B$));" ";P 


The following should appear on your screen: 


TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 
TYLER 


TIPPE 
IPPEC 
PPECA 
PECAN 
ECANO 
CANOE 
ANGE 
NOE A 
OE AN 
E AND 
AND 
AND T 
ND TY 
D TYL 
TYLE 
TYLER 


OOnNOM AWN = 


16 


Examine the output carefully until you are confident you understand how the 
program works. Apple, PET, and TRS-80 users will want to take special note of this 
program fragment for future use It can be a valuable part of your library of 
programming tools 

Suppose you were given the assignment of writing a small program intended to 
test a student’s knowledge of geography More specifically, suppose the program 
were to print the name of one of the fifty states and ask the student to type in the part of 
the country where that state was located Such questions will probably have more than 
one correct answer and the program will need to check the student's response against 
each of the acceptable answeys. You can accomplish this task using strings and the 
subsiring index operation sn such a program, the answer string must be searched in 
order io determine whether the response string is present in it Consider the following: 


110 LET A$ = "EAST NORTHEAST NEW ENGLAND" 

120 PRINT "IN WHAT PART OF THE COUNTRY IS CONNECTICUT" 
130 INPUT BS 

140 FORP = 1 TOLEN(A$) — LEN(BS$) + 1 

150 IF BS = MIDS(AS$,P,LEN(B$)) THEN 200 

160 NEXT P 
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170 PRINT "SORRY, YOUR ANSWER IS WRONG" 
180 GOTO 999 

200 PRINT "CORRECT' 

999 END 


At this point, we recommend that you type in this program and run it in order to 
satisfy yourself that it works correctly In addition to the correct answers, try each of the 
following. 


NORTH ENGLAND E 
NEW LAND WE 
THE 


Your program should accept all of the obviously incorrect answers and print a 
congratulatory message. Clearly, this program needs some more work. Read over the 
results and try to diagnose the problem before you proceed to the next paragraph 

The problem, as you have probably deduced by now, is that humans make 
certain assumptions about the answer string that are unknown to the computer When 
we look at statement 110, we see four words in the answer string constituting three 
correct answers. They are EAST, NORTHEAST and NEW ENGLAND. We read the 
answer string in this manner because we recognize the words init We know that NEW 
ENGLAND is one answer because the words refer to a part of the country Also, very 
importantly, we interpret the blank character, or space, as a word delimiter —that is, as 
separating words from each other Computers make no such assumption. The blank is 
just as much a character to the computer as the ‘‘T’’ It is also clear that the blank 
between NEW and ENGLAND is different in its meaning from the blank which follows 
EAST The blank that follows EAST separates one correct answer from another while 
the blank between NEW and ENGLAND only separates two words in the same correct 
answer We must make several minor changes in our program in order to insure that it 
interprets answers the way we do More specifically, we need to distinguish between 
those spaces that delimit correct answers and those that separate words in the same 
answer Our objective is rather easily achieved by the modification of statement 110 
and the addition of statement 135 


110 LET A$="S$EASTSNORTHEASTSNEW ENGLANDS' 
135 LET B$="$'+B$+"$" 


Now rerun the program trying all the incorrect answers given above as well as the 
correct ones Does the program now distinguish the correct answers from the incorrect 
ones? 

Our technique here is a simple one. We merely insert dollar signs into the answer 
string so that each correct answer begins and ends with a dollar sign Unknown to the 
student, the program also adds a dollar sign to the front and the end of the student's 
answer string 
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EXERCISE SET 8.1 


1 


Read the following program fragments carefully and determine what the 
computer will print when you run the fragmenis. After doing so, enter and run 
them and check your answers 


(a) 100 LET AS = "HAPPY BASTILLE DAY' 
110 FORi = 1 TOLEN(A$) 
120 PRINT MID$(A$§,}, 1) 
130 NEXT | 


(b) 100 LET A$ = "HAPPY BASTILLE DAY' 
110 FOR! = LEN(A$) TO 1 STEP —1 
120 PRINT MIDS$(A$§,l, 1) 
130 NEXT! 


(c) 100 LET A$ = "YOUR NAME” 
110 LET B$ ="" 
120 LET K = LEN(A$) 
130 FORI = 1 TO LEN(A$) 
140 LET BS = BS + MID$(AS,K, 1) 
150 LET K =K-i 
160 NEXTI 
170 PRINT AS 
180 PRINT BS 


A sentence is entered as a single string on a data line. Write a program that 
determines the length of the first word in this sentence. Assume that the sentence 
has no internal punctuation and ends with a period. 


Consider problem 2 above again. Write a program that counts and prints the total 
number of words in the sentence 


Assume that the computer you are using does not support the RIGHTS and 
LEFTS functions. Rewrite the following statements using the MID$ function. If 
you are using a computer that supports another substring function, convert these 
statements to use the available function 


PRINT LEFTS$(S$,5) 
PRINT RIGHTS(S$,2) 
PRINT RIGHTS(S§$, 10) 
PRINT LEFTS(S$, 12) 


Note. We have not specified the length of S$ and you should not assume any 
particular length except that the string is at least as long as the substring we are 
attempting to select 
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5. Rewrite the following statements to use the MID$ function. 


X$ = SEGS(B$,9, 11) 
PJ$ = SEGS(X$,9,9) 
A3$ = SEG$(Z§, 10, 14) 


6. If your machine does not support the MID$ function, rewrite the following 
statements to use whatever substring function you have available 


X$ = MID$(A$,5,7) 
D$ = MID$(NAME$, 2,2) 
SS$ = MIDS(ST$,I, 1) 


8.11 STRING APPLICATIONS: 
DECIMAL POINT ALIGNMENT 


Let us now look at several small programs that apply the functions, operations, and 
techniques we have demonstrated. Many dialects of BASIC, including TRS-80 Level Il 
BASIC, support some syntax that allows the programmer to prescribe the format under 
which values will be printed For example, one could decide that the value of a given 
variable will be rounded to the second decimal place and printed in a field eight 
characters wide beginning at column 21 on the screen. This gives us the ability to make 
the decimal points line up vertically in a column of figures. Neither the Apple nor the PET 
provides such a formatting facility Fortunately, this is not a difficult application to 
program. First, consider the following program and its output as an illustration of the 
problem we wish to solve: 


100 REM----- NOFORMAT 11-24-78 
105 FORI=1TO6 

110 READ V 

120 PRINT V 

130 NEXT I 


200 DATA 1.23, 231.44, .45, 2.98, 179.99 
202 DATA 12.21 


RUN 
1.23 
231.44 
-45 
2.98 
179.99 
12.21 
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Notice how each number printed begins in the same column. This makes it 
difficult for one to read such a column of figures. It is not easy to find the largest or 
smallest number In contrast, consider the following program and output listing All the 
decimal points line up over one another and the column is relatively easy to read. 


100 REM -- WITHFORMAT 11-24-78 

105 FORI=-1TOS 

110 READ V 

120 LET V$ = STRS(V) 

130 FORJ= 1 TOLEN(V$) 

140 iF MID$(V$,J,1) = "." THEN O = J — 1: GOTO 170 
150 NEXT J 

160 LET O = LEN(V$) 

170 PRINT TAB(10 — O)V 

180 NEXT I 

200 DATA 1.23, 231.44, .45, 2.98, 179.99 
202 DATA 12.21 


RUN 


231.44 
AS 
2.98 
179.99 
12.21 


This program and the one to be used in Section 8 14 introduce two new 
functions, which are available in most dialects of BASIC. The two functions are 
complements of each other One changes a string value into a numeric value and the 
other changes a numeric value into a string STR$ accepts a single numeric argument 
and produces a string representation of that value as output. For example: 


200 LET X = 129 
210 LET X$ = STRS(X) 
220 PRINT XS 


This tragment wil change the numeric vaiue 129 ino a tines Characiey String if you use 
an Apple !f you use a PET, a four characier string will be printed, which consists of a 
single blank followed by "129" MUBASIC behaves like the Apple The TRS-80 behaves 
just like the PET in this regard. You can test the behavior of your computer by adding 
one additional statement as follows: 


230 PRINT LEN(X$) 
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If the value assigned to X in statement 200 is changed to -129 all dialects of BASIC 
mentioned above will produce strings four characters long each beginning with a minus 
sign. 

The VAL function translates a string into its numeric representation. As you might 
expect, VAL will not work correctly (or at all) if the string to be translated contains 
nonnumeric characters. The following will illustrate 


100 LET S$ = "$225.98" 
110 LET S = VAL(RIGHTS(S$,6)) 
120 PRINTS 


This fragment will cause the second through seventh characters to be segmented and 
then translated by VAL into a numeric value. For that reason, the dollar sign was 
omitted from the substring passed to VAL Had we not done so, an error message 
would have resulted. The Apple, the PET, and the TRS-80 are a little more tolerant of 
illegal characters in the VAL statement argument. The following program will run 
correctly on the microcomputers named above but not in many dialects of BASIC 


200 LET X$ = "123XxX' 
210 LET X = VAL(X$) 
220 PRINT X 


Assuming that the "XX" represents junk in which you are not interested, the Apple, the 
PET, and the TRS-80 will return a correct result of 123 


STRING APPLICATIONS: 
RANDOM WORDS 


In Chapter 6, you were introduced to random numbers and some of their applications 
since alphabetic characters are represented internally in the computer as numeric 
codes, we can use the random number generator to produce random words. In this 
case, we use the random number generator to produce values, which our program 
scales so that they all fall in the range from sixty-five to ninety, the range of ASCIi codes 
for alphabetic characters The following program produces 160 randomly created 
four-letter words. You will note that the prograrn produces a different set of random 
words on each execution On the basis of extensive testing, we are satisfied that the 
program behaves itself and confines its creativity to four-letter words that are socially 
acceptable. You will have to be patient with your computer, because if it is like ours, it is 
a bit inarticulate and produces few if any recognizable words in each execution. Here is 
a version that will run on the Apple: 
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200 
220 


RUN 


STAW 
NHU? 
WT JM 
XUAN 
HHLE 
EVUE 
OF UO 
CKMT 
YPVT 
EIIC 
KGSK 
KREW 
asvo 
PPTH 
SRJC 
KWGO 
VECE 


OFA VINLAM 
im Ube 


NHYM 
URMS 


REM 

HOME 

FOR I 
FOR 


NEXT I 


EBUN 
JNGM 
SMKF 
HMA X 
XOTY 
XVPD 
NONT 
CBHV 
GxX2ZI 
CBAB 
IOYC 
ABVW 
AMRO 
XHDS 
GRDE 
YTTY 
CRPB 
Vier 
OF DL 
ILGP 


satiate, AP PLE PEE c SS RMR STATE glean Te IE GRE RATE TS nN) CONE vie OE ahs EE BRET wT ILD cn Te 


REM -- RANDOM WORDS 


APPLE VERSION 


= 1 TO 20 


J = 


YMFV 
APMM 
SBPE 
SXUE 
RZIH 
TRHQ 
UGVJ 
Q@dgDJ 
KI@L 
KUJK 
OKBI 
KWIQ 
AXUB 
QEBH 
VARW 
JAEX 
LYAX 
Cvec 
Y¥XJG 
IYHO 


1 T0 8 
FOR K = 


1 TO 4 
LET L = RNDC1) 
LET L = INTCL *€90-65+13+65) 
PRINT CHRSCLD; 
NEXT K 
PRINT '' ''s 
NEXT J 


JSON 
GPKK 
LOWV 
EXED 
UTAL 
YNTR 
HZLU 
UJOT 
HWY J 
WHCV 
LIUXV 
PVVD 
BGBD 
SVIC 
TWBG 
WKMUW 
TX2ZL 
XPEC 
JLXM 
UOFO 


PWYIT OLHL NIXU 
PCVT FVJM OSUJ 
STUD MPHO JVZE 
DXSQ 2CTY XRLZ 
WXOS TSL@ TOZU 
GPLL SUNK CXJR 
YSSU GLUC LQ@PH 
QJIX XDOZ PEO! 
GWRE TITW ARUA 
COAU YYQW PHLO 
ZQNF VMID EYGL 
GEHJ HERG LAGA 
SOMG SCOR Z2CPO 
EUKA TRFG EUPI 
WGJQ@ YSNU JOZQ 
BRRV BFKJ VHXF 
GSHH XSGZ GEGT 
PTAM EGAY LVAL 
WGBH KGYD LKBB 
KYSD ZZHF WNJF 


TY 


lf you wish to run this program on the PET you should replace statement 110 and 
insert statement 115 as indicated in the boxed PET program: 
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_ PET ™ 


100 REM -- RANDOM WORDS 
105 REM PET VERSION 
110 PRINT CHRS$(147) 

115 LET D = RND(- TI) 

120 FORI = 1TO 20 

130 FORJ=1TO8 


140 FORK =1TO4 

150 LET L = RND(1) 

160 LET L = INT(L *(90—65-+ 1)+65) 
170 PRINT CHRS(L); 

180 NEXT K 

190 PRINT" °; 

200 NEXT J 

220 NEXT I 


Statement 115 is intended to help the PET produce a more acceptable series of 
random numbers by passing a more or less random seed to the random number 
generator The value returned to D is not intended for any use. Tl is a PET special 
variable that retains the count of the number of ticks (60ths of a second) that have 
passed since the machine was turned on or the time was reset. TI and its companion 
TI$ will be discussed further in section 10.13 * 

The TRS-80 version, which is quite similar to the Apple version, is presented 
below 


100 REM -~ RANDOM WORDS 
105 REM  TRS-80 VERSION 
110 CLS 

120 FORI= 1TO20 

130 FORJ=1TO8 


140 FORK=1T0O4 
150 LET L = RND(O) 
160 LET L = INT(L *(90—65-+ 1) +65) 


*Our usage here follows the manufacturer's recommendation See PET 2001-8 PERSONAL 
COMPUTER USER MANUAL First Edition (Palo Alto: Commodore Business Machines, 1978), 
p. 30 
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170 
180 
190 
200 
210 
220 


PRINT CHRS(L); 
NEXT K 
PRINT " '; 
NEXT J 
PRINT 
NEXT | 


8.13 STRING APPLICATIONS: 
SORTING STRINGS 


A common data processing task for business and research is sorting. Sorting is made 
possible by the order in the ASCII (or EBCDIC) coding system. Following is a short 
progam that sorts the last names of some of your favorite composers of classical 
music The algorithm used here is the simple bubble sort demonstrated in Section 6 4 


wath mmaric data 
eoweatea ee ee es ed eet Net et 


100 
101 
110 
115 
117 
118 
119 
120 
125 


3 


REWi---STRING SORT 


REM 
DIM N$(15) 
LETN = 15 
REM 
REM---READ UNSORTED LIST 
REM 
FORI=1TON 
READ N3(I) 
NEXT | 
REM 
REM---SORT ROUTINE 
REM 
FORi=WN TO 2 STEP — 7 


FOR J=1TOI-—1 
iF NS(J) <= N$&(J+ 1) THEN 250 
LET S$ = NS&(J) 
LET NS(J) = NS(J+ 1) 
LET N&(J+ 1) = S$ 
NEXT J 
NEXT | 
REM 
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270 REM---—PRINT SORTED LIST 

271 REM 

275 FORI=1TON 

280 PRINT N&(I) 

285 NEXT I 

299 REM 

300 DATA BEETHOVEN, VAUGHAN WILLIAMS,MOZART 
301 DATA BRAHMS,RESPIGHI,ELGAR,DELIUS 

302 DATA VIVALDI,PURCELL,POULENC,FRANK 

303 DATA PROKOFIEV,BORODIN,GLINKA,FAURE 


RUN 
BEETHOVEN 
BORODIN 
BRAHMS 
DELiUS 
ELGAR 
FAURE 
GLINKA 
MOZART 
POULENC 
PROKOFIEV 
PURCELL 
RESPIGHI 
VAUGHAN WILLIAMS 
VIVALDI 


8.14 STRING APPLICATIONS: 


INPUT VALIDATION 


A common type of user error that can occur with any computer language is the 
accidental entry of nonnumeric data when a number is required Depending upon the 
language, this error causes at least the generation of an error message and often 
causes abnormal termination of the program To cope with this problem, all serious 
programmers write code to check all input for illegal characters This process is called 
Validation of input or laundering of input For example, if a program requires its user to 
enter a number, whatever is actually entered must be checked for illegal characters 
before the program proceeds any further We can accomplish this goal by first reaciing 
the response as a string and then proceeding to validate the input. 
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Consider this problem If a novice user incorrectly enters the letter ''O"' in place of 
the number ‘‘O’’, the computer will respond with an error message We can include 
within our programs a test that traps such errors and reports them to the user The 
prototype program below uses several string manipulation techniques which were 
discussed earlier in this chapter Notice how the user response is converted to a 
numeric value only after it is found to contain only numeric characters Examine the 
program closely After you think you undersiand it, make a list of the assumptions that 
the program makes about what ts and what is not a numeric value. Also, note the use of 
the CHR$ function in line 300 With many dialects of BASIC, this is the only way a 
orogram can print a quotation mark. 


100 
105 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
999 


RUN 


REM-~--BAD DATA CHECK 
REM 
PRINT ‘ENTER A NUMBER’ 
INPUT R$ 
FOR I= 1 TOLEN(RS) 
IF MIDS(R§,1, 1) < "O" THEN 290 
IF MIDS(R$,I, 1) > "9" THEN 290 
NEXT | 
LET K = VAL(R$) 
PRINT "THE NUMBER ENTERED IS ';K 
GOTO 999 
PRINT "A NON-NUMERIC CHARACTER HAS BEEN ENTERED' 
PRINT CHRS$(34); MIDS(R§,!, 1); CHR$(34);" 1S NON-NUMERIC" 
END 


ENTER A NUMBER 

712W 

A NON-NUNIERIC CHARACTER HAS BEEN ENTERED 
"W' IS NON-NUMERIC 


RUN 


ENTER A NUMBER 


7123 


THE NUMBER ENTERED IS 123 


On many computers—including the Apple, the FE! and the IRS-40— ii is 
possible to combine the logical tests in statements 230 and 240 into a single statement 


as follows 


230 


IF MIDS(R$,1,1) < "0" OR MID$(R§,I, 1) > "9" THEN 290 


Other computers may not allow this syntax. 
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8.15 STRING APPLICATIONS: 
LOWER CASE 


some dialects of BASIC permit the printing of lower case letters Under some 
circumstances, we may wish to translate characters from upper to lower case We can 
do this by using different string manipulation techniques discussed in earlier sections of 
this chapter First, we must translate each character in the string into its respective 
ASCIl code using the ASC function and store these codes in an array as illustrated tn 
Section 8.9 Then, we add thirty-two to each alphabetic code in the array, that is, to 
each ASCIil code in the range of sixty-five to ninety Finally, we translate the array of 
ASCli codes back to characters using the CHR$ function Here is the program It is 
written in the MUBASIC dialect and will not run on the Apple, the PET, or the TRS-80. 


100 REM---LOWER CASE 

101 REM MUBASIC VERSION 
102 REM 

110 DIM A(25) 

120 PRINT ‘ENTER A STRING’ 


125 INPUT A$ 

126 REM 

127 REM---CHANGE TO ASCII CODES 
128 REM 


130 FOR! = 1 TO LEN(A$) 

135 LETA(I) = ASC(SEGS(AS,I,1) 
140 NEXT I 

144 REM 

145 REM---CHANGE TO LOWER CASE 
146 REM 

150 FOR! = 1 TO LEN(AS) 

160 IF A(l) < 65 THEN 190 

170 IF A(l) > 90 THEN 190 

180 LET A(l) = A(I) + 32 

190 NEXT I 

194 REM 

195 REM---PRINT LOWER CASE 
196 REM 

200 FORI = 1 TO LEN(A$) 

210 PRINT CHRS$(A(I)); 

220 NEXT I 

230 END 
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Here iS a run: 


RUN 
ENTER STRING? MICKEY MOUSE 
mickey mouse 


Statements 160 and 170 together prevent ASCII codes from being modified if the 
original symbol was noi an upper case letter Without these statements, our program 
would produce strange results for numbers, special characters, and blanks. By using 
these statements, such characters are left alone. 

Next, we will present a version of the same program that will run on the PET Itis 
quite similar to the MUBASIC version. The PET actually has two character sets, the 
standard character set that contains the symbols found on the keyboard and a second 
character set that does not contain the graphic symbols seen on the keyboard but 
substitutes lower case characters instead. The standard character set is always used 
by the PET unless we direct otherwise One memory location in the PET is used to take 
note of which character set is currently in use. When we wish to change character sets 
we must insert a numeric value into that memory location, something we do with the 
POKE command. (For the record, POKE is really a function, but it is often used as if it 
were a command POKE inserts a numeric value into a memory location specified by 
is AUdeSS.) TU MSUUCL Ine FET iO USE IS SECONG Cnaracié? SEI, WE USE Ihe [OllOwiNg 


statement: 
POKE 59468, 14 


This statement causes the decimal value fourteen to be inserted or POKEd into 
memory location 59468 Such a statement can be included in any BASIC program and 
can also be used in immediate mode. To change back to the standard character set, 
we merely POKE the value twelve into the same location. Whenever the PET is turned 
on, the value twelve is POKEd into location 59468 to assure that the standard 
character set willbe used The PET version of the program is reproduced here: 


nH PET AIT SG otiow EEEE obo? PGE OE slay DRE ve Oe WD MS Ee gE ate SENSES Boon eae OES PMT a MG aa dan 


100 REM---PET VERSION OF 

101 REM LOWER CASE 

110 DIM A(25) 

120 PRINT "ENTER A STRING’; 

125 INPUT AS 

130 REM---CHANGE TO ASCli CODES 
135 FORI = 1TOLEN(A$) 

140 LET A(l) = ASC(MID$(A$,I, 1)) 

145 NEXTI 

150 REM---CHANGE TO LOWER CASE 
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155 FORI= 1 TOLEN(A$S) 
160 LET A(l) = A(I) + 128 
170 NEXT | 

175 PRINT 

178 REM---PRINT LOWER CASE 
180 FORI = 1 TOLEN(A$) 
185 PRINT CHRS$(A(I)); 
190 NEXT! 

195 REM---—DELAY 

200 FORI = 1 TO 3000 
210 NEXT I 

220 POKE 59468, 12 

230 END 


The FOR-NEXT loop beginning at statement 200 is a delay loop that eats up time 
before statement 220 is executed Statement 220 will have the effect of changing all 
the lower case characters on the screen to graphic characters. (You can delete this 
statement if you wish to continue with lower case.) Because the PET continually 
refreshes the screen image from an internal buffer (sixty times a second), changing the 
character set with the POKE command changes all characters on the screen To enter 
lower case characters from the keyboard (assuming the PET is already instructed to 
use the second character set), first depress the shift key, and then type the key with the 
desired character on it. This Sequence is opposite to the way typewriters work. Note 
that in statement 160, the ASCII codes are incremented by 128 rather than 32 as in the 
earlier example 


EXERCISE SET 8.2 


| Enter the FORMAT program discussed in Section 8.11 Change the contents of 
ihe DATA statements so that there is one negative value in the program. Then 
run the program. Do the decimal points still line up correctly? On some 
computers, the negative value will be misaligned If this problem occurs, modify 
the program to handle negative values correctly. 


2 Using the random word generator discussed in Section 8 12 as a model, write a 
program to accept a word from the keyboard and then attempt to generate the 
same word randomly The program should keep track of how many tries are 
necessary before the desired word is generated A word of warning: if you 
attempt to get the computer to generate a word with more than three characters, 
be prepared for a long wait 
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3. Modify the bad data check program in Section 8.14 so that it accepts decimal 
values. Be sure that only one decimal point is accepted Test your program. 


4. lf your computer is not one of those we discussed when we treated lower case, 
consult the documentation for your computer or ask your instructor if your 
computer can produce lower case characters If it can, write your own program 
to translate upper case to lower case using our sample programs as models. 


Review 


Here we list the new BASIC syntax introduced in this chapter 
Basic SYNTAX 


CHR$()_ astring function that returns the character corresponding to the ASCII code 
argument (Section 8 4) 


ASC ()_ astring function (the complement of CHR$) that returns the ASCII code for a 
single character string argument. (Section 8 4) 


SEG$ (,,) a substring selection function that returns a specified segment of a 


mharantar 
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selected, and the last character of the substring to be selected. (Section 8.9) 


MIDS (, ,) another substring selection function very similar to SEG$. The only 
difference is the third argument which, in the case of MID§, is the length of the 
substring to be selected (Section 8.9) 


LEN()  astring function that returns the length of its string argument (Section 8 8) 


STR$ () a string function that returns a character representation of its numeric 
argument (Section 8.11) 


VAL () astring function that returns a numeric representation of its string argument 
This function is the complement of STR$ The argument should contain a character 
representation of a number. (Section 8 11) 


LEFT$(,) asubstring selection function that returns a substring of specified length 
from the lett end of a string. The first argument is ihe siring name or a String constant 
and the second arqument is the lenath of the substring to be selected. (Section 8.9) 


RIGHTS (, ) a substring selection function that returns a substring of specified 
length from the right end of the string. The first argument is the string name or a string 
constant and the second argument is the lengih of the substring to be selected. 
(Section 8 9) 
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91 INTRODUCTION TO PROGRAM 
oTRUCTURE AND DEBUGGING 


Peopie who use computers frequently refer to program errors as bugs and the 
process of removing errors from programs as debugging The detection and 
correction of errors is a normal everyday part of the process of using a computer as a 
problem-solving tool Some errors are obvious and easy to detect while others are 
subtle and may exist in a program for months without detection. Serious programmers 
(those who program for a living) devote a substantial amount of time to the testing of 
their programs in order to find and eliminate the bugs. We can classify errors as 


follows 
Typology of Programming Errors 
1 Program is interrupted prematurely with an error message. 
2 Program runs (or seems to run) but does not produce any results 
3 Program runs and produces obviously incorrect results. 
4 Program runs and produces plausible but incorrect results. 


While type 1 errors often seem to overwhelm the novice programmer, they are 
detected by the computer and are relatively easy to handle. In contrast, type 4 errors 
may go undetected indefinitely 
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In this chapter we will be concerned with the detection and correction of errors 
But we must begin with the programming development process because many errors 
originate here 


PREVENTING ERRORS 


While we do not wish to imply that all errors can be prevented, we are convinced that 
programs that are well developed from the beginning are less subject to errors. 
Furthermore, in such programs, errors are easier to detect and to correct. We 
recognize that there is an experimental aspect to programming which implies that trial 
and error methods will often be used 

In Chapter 3 we introduced an algorithmic language, which we recommended 
that you use in the process of program development for all but the most trivial tasks 
The use of algorithmic fanguage prior to coding in BASIC helps us to detect logical 
inconsistencies early in the design process. This reduces the need for quick fixes in 
programs, which tend to obscure program meaning. The algorithmic representation of 
our problem solution will be an important reference documeni as we attempt to find and 
correct errors Other vaiuabie Gocumenis will be Cruss relerence tdvies anu valiabie 
lists 


PROGRAM STRUCTURE 


Up to this point, we have emphasized the construction of short rather simple programs. 
The most complicated task attempted was in Section 7 11 where we developed a 
program for exploding orders That program was nearly thirty lines long As we begin to 
solve more complex problems our algorithms and programs become longer and 
potentially more difficult to understand 

All but the simplest programs have component parts or can be segmented into 
components These componenis constitute a kind of natural program siruciure. \f we 
are able to recognize this naiural structure or even enhance it, we can make our 
programs easier to read and understand Kernighan and Piauger have written, ‘in our 
experience, readability is the single best criterion of program quality. if a program is 
easy to read, it is probably a good program, if it is hard to read, it probably isn't 
good ''* Implicit in this statement is the proposition that programs are intended to be 
read by persons (including their original authors) as well as by machines We should 
hasten to add that readable programs are easier to debug 


*Kernighan and Plauger, Software Tools, p 28 
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Some dialects of BASIC make it easy to improve the readability of our programs 
while other dialects offer little help Consider the following two examples Which line is 
easier to understand? 


200 FORKS=1TOAD 
Of 
200 FOR KS = 1TOAD 


While the computer will execute both statements correctly, we think you will agree that 
the second statement is more comprehensible to humans Were we to enter the first 
version, the Apple would automatically produce the second version upon being given a 
list command In contrast, the PET will retain the earlier version if you use it Thus, more 
care must be taken with the PET In fairness, we must admit that the first example does 
save some memory With a microcomputer with limited memory this is a consideration 
But conservation of memory may be achieved at a high price. 

some BASIC dialects permit empty lines—that is, with nothing following the 
statement number—and some allow one to indent in order to set off blocks of 
statements Unfortunately, most microcomputers, the Apple and the PET included, do 
not provide such facilities and we are forced to improvise. The TRS-80 is the exception, 
permitting both blank lines and statement indentation Loop indentation can be 
achieved on any computer by using the colon to force indentation as follows: 


200 FORI=1TOLAST 
210 READ X(I) 

220 ~=—~PRINT X(i) 

230 NEXT! 


This may not be as satisfactory as the following 


200 FORI= 1 TOLAST 
210 READ X(I) 

220 PRINT X(I) 

230 NEXT I 


We like the latter approach and have written an editor program which will print 
hard copies of your programs with such indentation. This program is described in 
Appendix D, page D1 

Careful use of comment statements can also help improve the readability of 
programs by marking off blocks of statements vertically. Generally speaking, we 
recommend that you avoid excessive comments and comments that echo the code 
For example, in both the following fragments, the comments do not add to our 
understanding of what the program is doing: 


200 REM--—-ADD A TO B GIVING C 
210 C=A+8B 
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200 REM---ADD C TOB GIVING A 
210 C-A+B 


In the second case, the comment actually misleads. Since comment statements look 
more like English than BASIC statements do, we are more likely to read and trust the 
comment than the code * 

We have been using REM statements to separate blocks of statements vertically 
without comment but now we need to make this approach more explicit. Here we 
present the same program to explode an order with a more fully developed use of REM 
statements. 


100 REM -— EXPLODE 
101 REM PROGRAM TO EXPLODE AN ORDER 


103 REN 

105 LETN=3 : LETL=5 

107 REM---—------—----------------+- 
108 REW LOAD COMPONENT MATRIX 
109 REM-~-------------------------+- 


110 FORI=1TON 
1715 FOR J=i1TOL 


iZs READ BG} 

130 NEXTJ 

14G NEXTI 

144 REM-~------------------------- 
145 REM INPUT ORDER FROM KEYBOARD 
146 REM--------------------------- 


150 FORI=1TON 

160 PRINT "ENTER QUANTITY OF MODEL A(‘31;’). 
170 INPUT A(I) 

180 NEXT I 

184 REM-------~-~-----~------------- 
185 REN EXPLODE THE ORDER 

186 REM-------------~-----------~-- 
190 FORJ=TTOL 

20 FORK =1TON 

210 LET C(J) = C(J) + A(K) * B(K,J) 
220 NEXT K 

230 NEXT J 

232 PRINT 


*Kernighan and Plauger, The Elements of Programming Style, Second Edition (New York: 
McGraw-Hill, 1978,) p 142 
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233 REM----------—-—-—------~--------- 
234 REM DISPLAY COMPONENT LIST 

236 REM---~----------------------- 
236 PRINT "HERE ARE COMPONENTS NEEDED" 
238 PRINT 


240 PRINT "COMPONENT #'",'QUANTITY' 
250 FORI=1TOL 

260 PRINT 1,C(I)" °; 

270 NEXT I 

277 REM---~----~~~----------------- 
279 REM DATA SET: COMPONENT MATRIX 
280 REM--~---~---------------- 
280 DATA 2,0,1,0,0,2,0,0,1,1,0,2,0,1,2 
290 END 


Our use of REM statements here is merely an illustration of an approach to 


improving the readability of programs. We recommend the approach to you, but not 
necessarily our implementation of it. Let us summarize the major components: 


1 We use the dash to create vertical segments The lines of dashes are of 
uniform iength. 


2 Wemark off major blocks of the program using REM statements to indicate 
the function of the blocks. 

3 Weuse three-digit line numbers to achieve left justification. 

4 The first statement in our programs is always numbered 100 and always 
contains the name of the program. The program is saved on disk under this 
name. When it is time to save a program and we forget tts name, we merely have 
to list statement 100 in order to prevent accidental overwriting of the wrong file. 


5 We indent the contents of each FOR-NEXT loop 


As we indicated above, there are many possible variations on our approach and 


we advise you to adopt your own approach and use it consistently Among the 
important considerations in selecting a style are the following. 


1 How much memory is available? If you have a small amount of memory, you 
may have to reduce the length of the REM statemenis as well as their number 


2 l|saprinter available? If one is available, you may not be concerned about line 
wrap-around because on the printer, it comes out as a single line If a printer is 
not readily available, you might want to limit statement length to facilitate reading 
BASIC code on a screen 


3 How wide is your screen? If the dialect of BASIC available to you permits 
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seventy-two or eighty characters to be displayed per line, you may take a 
different approach than you would take if you have a forty column display limit. 


The key is to adopt a style and use it Consistenily 


oTRUCTURED PROGRAMMING 


The term structured programming has obtained common usage in the field of 
computing in recent years, but there seems to be no consensus on its meaning Here 
we will follow a definition by Kernighan and Plauger who have written that ‘‘structured 
programming in a very narrow sense implies programming with a limited set of control 
flow statements, and avoiding gotos.’’* Some have argued for the complete elimination 
of GOTO statements However, this is an extreme remedy, one not feasible in BASIC 
Yet, we can greatly improve the structure of our programs by carefully scrutinizing 
every GOTO statement and eliminating those that do not implement fundamental 
structures, and, by modularizing our programs through the use of subroutines, which 
are discrete program segments that perform specific tasks. For those who wonder 
what is wrong with using GOTO siatemenis, Professor Weinberg answers 


Experiments with problem solving in programming-like situations indicaie thal a series of 
decisions arranged in a Strictly linear sequence is typically easier to handle than a 
branching or looping sequence Experience with programming languages seems to bear 
this out, for programs with numerous GO TO statements or other branches are notoriously 
difficult to understand or debug t 


Each GOTO or branching statement ‘‘breaks our normal sequential mode of 
scanning the program or thinking about it ’'$ There its also evidence that ‘‘unrestrained 
branching via GOTO, produces structures that lend themselves to logical errors.’’§ 
Following is a program fragment that contains a classic example of the incorrect use of 
the GOTO statement. 


220 IF A(l) > BIG THEN 240 
230 GOTO 250 


*Kernighan and Plauger, Software Tools, p. 2 

tWeinberg, The Psychology of Computer Programming, pp 231-2 

£Weinberg, The Psychology of Computer Programming, pp 231-2 

§Frederick P Brooks, The Mythical Man-Month Essays on Software Engineering, (Reading, 
Mass Addison-Wesley Co , 1975,)p 144 
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240 BIG = A(l) 
250 NEXT I 


This fragment really contains two branching statements—lines 220 and 230. The 
combined effect is to complicate what would otherwise be a straightforward algorithm 
Indeed, we are never quite sure we understand what the algorithm is doing This 
illustrates a very common error often made both by those learning to program and by 
experienced programmers who should know better This fragment merely finds the 
largest value in the array A—a procedure we have seen before. But the fragment is 
complicated by one statement branching around another branching statement 
Following is a simple and clear version of the same procedure. 


200 BIG = A(1) 

210 FORI = 2TO 10 

220 IF A(t) > BIG THEN BIG = Ail) 
230 NEXT! 


Not only is the second version easier for us to understand, it also is shorter by two 
staternents. * 


PROGRAM BLOCKS 


It is possible to achieve the linearity that Weinberg writes about by organizing our 
program in blocks, that is, major sections of the program that are devoted to a 
specific task, that are linked sequentially. We present a general system for organizing a 
program that can be followed. It is intended as an illustration of an approach not as the 
only way to do it. Depending upon your program, certain blocks might be omitted. The 
basic approach we advocate here is not the segmentation of certain specific blocks in 
every program, but the segmentation of major blocks in each program. You will note 
that we do not follow the block segmentation technique rigidly but rather take a flexible 
approach that is intended to set off and label each significant program block. We 
recommend this flexible approach to you. 


A Possible Approach to Segmenting 
A Program into Major Blocks 


1 Program Identification & Initialization 
2 Main Program Loop 
3 Data Set Block (if any) 


*We owe this example to Kernighan and Plauger, Elements of Programming Style, p. 18 
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4 Subroutine 1 
5 Subroutine 2 
6 Subroutine n 


In order to ilustrate this approach of block segmentation we will use as an 
example a program that finds the mean, the standard deviation, and the median of a 
data set We will discuss the program as it corresponds to our model for segmenting a 
program into blocks 


1 Program Identification and Initialization 


This block always begins with statement 100 which is a REM statement 
containing the name of the program (this is the name under which it is stored on 
disk or tape) and the date on which the program was written In some cases 
where it matters, we also add another REM statement indicating a revision date. 
Immediately following statement 100 come a series of REM statements that 
indicate the purpose of the program and contain any warnings deemed 
necessary Next, come initialization statements that declare arrays, and initialize 
variables or arrays. Here is this block of our program 


100 REM -- SIGMA 8-9-79 

1071 REM 

102 REM REVISED 1-1-80 

103 REM 

104 REM THIS PROGRAM EVALUATES THE MEAN 

105 REM STANDARD DEVIATION AND MEDIAN 

106 REM OF A DATA SET. 

107 REM 

108 REM WARNING: IN COMPUTING STANDARD DEVIATION 

109 REM WEHAVE ASSUMED SAMPLE DATA, 

110 REM NOT A POPULATION. 

117 REM 

210 REM 

220 DIM X(15) 

230 LETS =O 

30% REWi 

310 REM 

320 PRINT "HOW MANY PIECES OF DATA WILL BE ANALYZED? 
(MAXIMUM OF 15)’ 

330 INPUT N 

335 FORI=i1TON 

340 READ X(I) 

345 NEXT I 
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Next, we have the main program loop. It controls the flow of the program through 
the computational and output steps. 


400 
401 
402 
403 
430 
440 
450 
460 
470 
480 
490 
500 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


REM 
FORI=1TON 
LETS =S+ X(i) 
NEXT I 
LETM=S/N 
REM 
REM-------- CALL STANDARD DEVIATION ROUTINE 
REM 


REM 
REM-~—--~~+--~-~--~—+—---—- CALL SORT ROUTINE 
REM 


REM 
REM----~---------------- CALL MEDIAN ROUTINE 
REM 


REM 

REM---~----------------- DISPLAY THE RESULTS 
REM 

PRINT "HERE IS THE SORTED DATA SET" 
PRINT 

FORI=1TON ~ PRINT X(!) : NEXTI 
PRINT : PRINT 

PRINT "THE MEAN OF THE DATA SET IS '; M 
PRINT 

PRINT "THE STANDARD DEVIATION IS °;S8 
PRINT 

PRINT "THE MEDIAN IS °;M9 


Data Set 


In this block, we find the data lines from which the program reads the data set. If 
the data set were to be entered from the keyboard or read from a file, this block 
would not be present. 
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720 REM 

730 REM---~--------~----~-~-------------- DATA SET 

740 REM 

750 DATA 29,31,52,32,33,56,50,44,49,47 

760 DATA 42,47,44,38,46 

800 GOTO 9999 

806 REM==========END OF MAIN PROGRAM=========== 


4 Subroutines 


The remaining blocks in the program (4,5, and 6) are subroutine blocks. 
Programs may have one or more subroutines as required We should mention 
that our placement of subroutines at the end, that is, the bottom of the program, 
may be quesiioned When a program has one or more subroutines that are 
executed many times, one might consider moving such subroutines to the top of 
the program—before the main program loop—to improve program execution 
speed. In most cases, little or nothing will be gained by doing so, and therefore, 
we prefer to place subroutines at the bottom. The subroutines called here can all 
be found in the Subroutine Library in Appendix B. 


SUBROUTINES 


The syntax associated with the use of subroutines—both in pseudocode and in 
BASIC —is quite similar to that used on the main program segment. in pseudocode, all 
subroutines begin with their name followed by a colon and end with end., in the same 
way aS main program segments. In addition, the return statement must appear 
somewhere in the subroutine in order to transfer control back to the main program. A 
subroutine procedure can be invoked anywhere in the main program or in another 
subroutine by the word ca// followed by the name of the subroutine to be invoked. In 
both our pseudocode and in BASIC, we assume all variables to be global! variables no 
matier where they occur: only in the main program, only in the subroutine, or in both. A 
global variable is known to all program segments and has the same value in all program 
segments. The following visual depicts the relationship between the main program and 
the subroutines in the program presented in Section 9.5 


MAIN 


SIGMA SORT MEDIAN 
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Using pseudocode, we can represent that program as follows: 


MAIN: 


call SIGMA A SIGMA. 


call SORT. ae 
; return 


end. 


call MEDIAN SORT 


return 
end 


MEDIAN 


end 


return 
end 


Many computer languages provide subroutine facilities. However, there is a good 
deal of difference among them in the manner of doing so. Even among dialects of 
BASIC there are differences. Readers familiar with a language like FORTRAN know that 
it supports subroutines that are complete and separate program units, so much so, that 
the main program and subroutines can reuse the same variable names and statement 
numbers without conflict While some dialects of BASIC provide similar subroutine 
support, most do not. We will, therefore, describe subroutine syntax —as supported on 
the Apple, the PET, and the TRS-80—which is similar, if not identical, to many other 
dialects. We define a subroutine as a discrete program segment that performs a 
specific task There are various advantages in using subroutines, the chief advantage 
is that they help us modularize our programs, which makes them easier to understand 
and debug Subroutines also make it possible to eliminate redundant code when a 
particular task must be performed at more than one place in a program. Finaily, use of 
subroutines makes it possible to build a library of subroutines which are tools to be 
used as needed in various programs. For example, see Appendix B. 

Some dialects of BASIC make it easy to append subroutines to a main program 
with an APPEND command Unfortunately, neither the Apple, the PET, nor the TRS-80 
have the APPEND command * Therefore, we are forced to keep our library as a single 


* Apple users who have access to the RENUMBER routine can use it to append files 
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file that we load first when writing a program. Next, we add other statemenis as 
required and use the DEL command to eliminate unneeded subroutine modules We 
should point out that all modules in our subroutine library have distinct statement 
number ranges, in order to faciliate this use. In our program above we used three 
subroutines—one each to compute the standard deviation, to sort the data set, and to 
compute the median. In this case, our chief motive was to increase the readability of the 
program by placing discrete modules in separate program units. 

In our program, we introduced two new syntax items ihat are necessary for the 
use of subroutines. We used the GOSUB syntax to call a subroutine, that is, to transfer 
program control to it A RETURN statement was used ito mark the end of the 
subroutine The GOSUB statement means: GOTO statement number nnn and 
continue executing statements until you encounter a RETURN statement whereupon 
you return to the statement following the calling statement Figure 9.1 may help 
ilustrate’ 


Figure 9. 1 
Use of GOSUB and RETURN 
Statements in Subroutines 


170 GOSUB 900 ——, 
180 PRINT X 
190... 


900 LET X = 21 


- 950 RETURN 


Statement 170 transfers control to a block of statements beginning at line 900. 
There, execution continues until statement 950 containing the RETURN instruction is 
encountered. Then, controj returns to statement 180—the next statement following the 
one that transferred control to the subroutine. 

Two important caveats must be borne in mind when using subroutines First, we 
must avoid accidental entrance into a subroutine Accidental entry will eventually 
produce an error message not to mention any erroneous results. The best solution to 
this problem is to enter a GOTO 9999 statement before the first statement of the first 
subroutine as we did in statement 800 (Make sure that statement 9999 is an END 
statement.) If you are using one of the three microcomputers to which we are orienting 
our presentation, you may as an alternative use an END statement in the same place. 
Second, bear in mind that all variables available to the main program are also available 
to all subroutines. Thus, while we think of subroutines as discrete units, they still share 
data with each other and the main program. Therefore, we should take care to see to it 
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that one module does not inadvertently modify a variable used by another module. In 
the Subroutine Library we are careful not to reuse the same variable narne except 
deliberately. Furthermore, we choose unusual variable names, such as X8 and Z9 
rather than just X or Z that might also be used by a main routine. Following we present 
a simple demonstration program to illustrate subroutine usage. 


100 REM -- DEMO99 

110 LET A$ = "USING SUBROUTINES’ 
120 PRINT A$ 

130 GOSUB 500 

140 PRINT A$ 

150 GOSUB 600 

160 PRINT A$ 

170 GOTO 999 

500 LET A$ = A$ +" HELPS ORGANIZE" 
510 RETURN 

600 LET A$ = A$ +" YOUR PROGRAM' 
610 RETURN 

999 END 


When we run the program we get the following results. Try it 


USING SUBROUTINES 
USING SUBROUTINES HELPS ORGANIZE 
USING SUBROUTINES HELPS ORGANIZE YOUR PROGRAM 


' PSEUDOCODE RULE 13 === 


Subroutines are expressed in pseudocode in the following manner 
A subroutine is invoked by a main program with a call statement that 
contains the subroutine name: 


call SORT 


The subroutine itself is written in a format similar to that used for main 
programs. It must begin with its name, terminate with an end. statement 
and contain at least one return statement 


SORT 


return 
end. 
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THE CASE STRUCTURE 


Now that you are familiar with subroutine usage, it is an appropriate time to introduce 
the CASE or multiple alternative decision structure Sometimes in solving a 
problem we wish to select one procedure from a series of options BASIC provides two 
alternative solutions to such a problem. Before looking at BASIC syntax, however, we 
will present a sample problem and attack it in terms of our algorithmic language. 

Let us assume that we are to write a program to calculate property tax bills given 
an assessment and a tax classification. Some tax classifications have different tax 
rates and some have a homestead exemption. We can set up the problem in Table 
9.1. 


Table 9 f 
Calculation of Property Tax Bills 
Using an Assessment and Tax Classification 


Tax Class Exemption Tax Rate 
first $5000 


St B10,060 
none 
none 
none 
none 
none 
none 


, 
c 
3 
4 
5 
6 
7 
8 


In Table 9 1, the first two classifications are for residential property and the last six 
classifications are for commercial property Such a problem is amenable to solution 
using the CASE structure because it has more than two alternatives Here we have 
basically five tax calculation blocks, one of which will be selected on the basis of the tax 
classification number. The first four tax classes constitute individual cases and the last 
four tax classes constitute the fifth case. The last four classes can be treated as a 
group because they have the same tax rate and none allow the homestead exemption 
They only differ on tax classification cade !n utilizing the CASF structure we have a 
default block that is executed if the value of the switch, CLASS in this case, is not 
specified as an individual case This permits us to treat tax classes five through eight as 
a group. Now let us look at ihe CASE structure and our problem in pseudocode’ 


PROPERT YTAX 

declare numeric: CLASS, ASSESSMENT, ADJUSTED, TAX 
put(“‘ENTER TAX CLASS") 

get(CLASS) 
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IF(CLASS < 1 or CLASS > 8 or CLASS <> INT(CLASS)) 
[ put(“BAD TAX CLASS "’,CLASS) 
STOP |] 
put(‘‘ENTER ASSESSMENT”) 
get(ASSESSMENT) 
select(CLASS) 
case 1: [ADJUSTED «— ASSESSMENT — 5000 
if(ADJUSTED < 0) ADJUSTED <— 0 
TAX — ADJUSTED * .025 | 
case 2: | ADJUSTED «— ASSESSMENT — 10000 
if(ADJUSTED < 0) ADJUSTED <— 0 
TAX <— ADJUSTED * 037 ] 
case 3 [ ADJUSTED «~ ASSESSMENT 
TAX <— ADJUSTED * 055 | 
case 4. [| ADJUSTED «— ASSESSMENT 
TAX <— ADJUSTED * .077 | 
default:| ADJUSTED «— ASSESSMENT 
TAX «— ADJUSTED * 089 ] 


put() 
put(‘‘TAX CLASS IS '’,;CLASS) 
put(‘‘ASSESSMENT IS '', ASSESSMENT) 


out(‘“ADJUSTED ASSESSMENT IS ’’,ADJUSTED) 
put('TAX IS "', TAX) 
end. 


In this algorithmic representation of our program, the select statement transfers 
control to one of the CASE blocks depending upon the value of its argument CLASS If 
CLASS has the value one, control shifts to the case 1 block. One and only one block is 
executed. If CLASS should have a value not specified in one of the case statements 
(values of five through eight) control passes to the default block. Since the value of 
CLASS is tested against the range of legitimate values immediately after it is input, we 
can be sure at this point in the program that CLASS will always have integer values in 
the range of one to eight 

Our algorithm can be implemented in BASIC in one of two ways. 


ON CLASS GOTO 
ON CLASS GOSUB 


We will illustrate both methods even though we prefer the latter. In BASIC, control is 
transferred to a statement number depending upon the value of the argument which in 
our example is the variable CLASS. Thus, if we were to write. 


300 ON CLASS GOTO 350,400,450,500 
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control would pass to stafement 350 if CLASS had the value one, to statement 400 if 
CLASS had the value two, to statement 450 if CLASS had the value three and to 
statement 500 if CLASS had the value four If CLASS had a value outside the range 
from one to four, control would pass to the statement that immediately follows 
statement 300 Our BASIC program would look like the following: 


100 REM -- PROPERTYTAX 2-17-81 


101 REM 

102 REM VARIABLES: 

103 REM CLASS, ASSESSMENT 
104 REM ADJUSTMENT, TAX 
105 REW 


110 PRINT "ENTER TAX CLASS 

120 INPUT CLASS 

130 IF CLASS => 1 AND CLASS <= 8 AND CLASS = INT(CLASS) THEN 145 
135 PRINT "BAD TAX CLASS ";CLASS 

140 STOP 

145 PRINT "ENTER ASSESSMENT ‘'; 

150 INPUT ASSESSMENT 

170 ON CLASS GOTO 180,220,260,290 
173 GOTO 325 

175 REM--------- CLASS = i------- 
180 ADJUSTED = ASSESSMENT — 5000 
190 IF ADJUSTED < 0 THEN ADJUSTED = 0 
200 TAX = ADJUSTED * .025 

210 GOTO 400 

215 REM--------- CLASS = 2------- 
220 ADJUSTED = ASSESSMENT — 10000 
230 IF ADJUSTED < 0 THEN ADJUSTED = 0 
240 TAX = ADJUSTED * .037 

250 GOTO 400 

255 REM--------- CLASS = 3------- 
260 ADJUSTED = ASSESSMENT 

270 TAX = ADJUSTED * .055 

280 GOTO 400 

285 REM--------- CLASS = 4~~----- 
290 ADJUSTED - ASSESSMENT 

300 TAX = ADJUSTED * .077 

310 GOTO 400 

320 REM--------- DEFAULT--------- 
325 ADJUSTED - ASSESSMENT 

330 TAX = ADJUSTED * .089 

390 REM 
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400 PRINT "TAX CLASS IS ';CLASS 

410 PRINT "ASSESSMENT IS ';ASSESSMENT 

420 PRINT "ADJUSTED ASSESSMENT IS °'; ASSESSMENT 
430 PRINT "TAXIS ";TAX 

500 END 


You will notice that statement 173 causes transfer to the default block 
We now present the second BASIC version which we prefer because it uses 
subroutines and thus avoids the multiple GOTO statements in the earlier version 


100 REM -- PROPERTYTAX2 2-1-81 


101 REM 

102 REM VARIABLES 

103 REM CLASS, ASSESSMENT 
104 REM ADJUSTED, TAX 

105 REM 


110 PRINT "ENTER TAX CLASS’; 

115 INPUT CLASS 

120 IF CLASS => 1 AND CLASS <= 8 AND CLASS = INT (CLASS) THEN 140 
130 PRINT "BAD TAX CLASS ';CLASS 

135 STOP 

140 PRINT "ENTER ASSESSMENT’; 

150 INPUT ASSESSMENT 

170 ON CLASS GOSUB 500,600, 700,800 

180 IF CLASS > 4 THEN GOSUB 850 

200 PRINT "TAX CLASS IS ';CLASS 

210 PRINT "ASSESSMENT IS ";ASSESSMENT 
220 PRINT "ADJUSTED ASSESSMENT IS ";ADJUSTED 
230 PRINT "TAXIS ';TAX 

240 GOTO 999 

250 REM 

260 REM---------- CLASS = 1--~-------- 
500 ADJUSTED = ASSESSMENT — 5000 

510 IF ADJUSTED < 0 THEN ADJUSTED = 0 
520 TAX = ADJUSTED * .025 

540 RETURN 

590 REM---------- CLASS = 2--------- 
600 ADJUSTED = ASSESSMENT — 10000 
610 IF ADJUSTED < O THEN ADJUSTED =0 
620 TAX = ADJUSTED * .037 

640 RETURN 

790 REM--------- CLASS = 3--------- 
700 ADJUSTED = ASSESSMENT 
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710 TAX = ADJUSTED * .055 

730 RETURN 

790 REM-~-------- CLASS = 4--------- 
800 ADJUSTED = ASSESSMENT 

810 TAX = ADJUSTED * .077 

830 RETURN 

850 REWN-------—- DEFAULT-~-~---~--~--- 
855 ADJUSTED = ASSESSMENT 

860 TAX = ADJUSTED * .089 

865 RETURN 

999 END 


You will note that the logical test in statement 120 has been inverted in both 
versions of the BASIC program Here, statement 180 contains a test to assure that a 
second set of calculations is not performed for all cases. If it were absent, the default 
block would be performed even if one of the other CASE blocks had already been 
performed. Note also the use of comment statements to mark off the program blocks 
as well as the use of the ON GOSUB in statement 170. It is often convenient to 


graphically depict the structure of such a program as in Figure 9.2. 


Figure 9 2 
Schematic of the Case Structure 
Main 
Case 1 Case 2 Case 3 Case 4 


Let us summarize the case structure with a new pseudocode rule 


Default 


The CASE or multiple alternative decision structure is expressed in 
pseudocode as follows 


select(SWITCH) 
case 1 [] 
case 2 [| 
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casen [] 
default, | 


Here, SWITCH is a variable. Control is passed by the select statement to 
that case block with the same value as SWITCH If no case block with that 
value is present, control passes to the default block. Any block can contain 
either a single statement or a block of statements enclosed in square 
brackets. If SWITCH has a value with a fractional part, that fractional part is 
truncated for use by the select statement The value of the SWITCH, 
however, is not actually modified. 


9.8 DEBUGGING TECHNIQUES 


Much of our attention in this chapter is aimed at error prevention as well as error 
detection and correction. But we recommend a constructive attitude toward errors. 
While we wish to avoid them, we should use each error as a learning experience 
providing an opportunity for improving our problem-solving ability as well as our 
expertise with the syntax of a particular language. 

Consider the following message. 


?BAD SUBSCRIPT ERROR IN 210 
The first step in error correction is to list line 210 


LIST 210 
210 X(I) =I 


Next, it would seem wise to print the value of | and to list the entire program 


PRINT I 
11 


LIST 


200 FORI=1TO15 
210 X(i)=! 
220 NEXT | 


The cause of the error is easily determined Since the array X is not dimensioned, 
itis given the default size of ten Once the loop index exceeded ten, the bad subscript 
message was generated. The easiest solution to the error message is to add the 
following statement: 
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100 DIM X(75) 


While this may be the first solution which occurs to us, we must be Sure that we are not 
curing the wrong disease What if we intended to have ithe loop index go from one to 
five but accidently keyed in a 1, deleted the 1 (or so we thought) and then entered the 
5? Adding statement 100 will eliminate the error message, but it will not solve the 
problem. This solution would replace an easy to detect error with a more elusive one. In 
this case, we must refer to the original program specifications including the algorithmic 
language version of the program in order to correct the real error 

Let us now consider the following situation The following program fragment is 
entered and run producing an error message 


200 DIM LIST(25) 
210 FORI=1T025 
220 LIST(1) =" * 2 
230 NEXT I 


?SYNTAX ERROR IN 200 


But we are puzzled because upon careful reading the fragment seems syntacti- 
cally correct. (You might want to think about this before reading on) The error 
message in this case tells us no more than that something is wrong in line 200 In this 
case, we have used one of the fifty or so words that the Apple reserves for special use 
The word LIST means list program statements If one did not have access to a list of 
reserved words, one would have to experiment by imitating BASIC's syntax scanning. 
From left to right, first inspect the statement number, then the keyword DIM, then the 
variable name and then the size-fixing value. Everything is standard-—as you have used 
in other dimension statements except the array name The nexi thing to do is 
experiment with the variable name Knowing that single alphabetic characters are 
always acceptable as variable names, use L as the array name in both statements 200 
and 220 and then test the program 

Consider this situation. A small program has been written to compute and print 
the sale price of an item by subtracting a discount of ten percent of the original price 
and adding a three percent sales tax Here is the program. 


100 PRINT "ENTER ORIGINAL PRICE 
110 INPUT P 


tiated — a 


140 P=P+ TAX—D 
150 PRINT "THE PRICE IS ';P 


RUN 
ENTER ORIGINAL PRICE? 59 
THE PRICE IS 54.87 
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The sample run produces a result that seems to be reasonable. In fact, the result 
is almost correct—being off by only eighteen cents But in this type of work, almost 
correct is the same as wrong Yet, a program like this could be used for a long time 
before anyone detected the error. The program is overcharging customers by 
calculating the tax before discounting the original price The tax should be computed 
on the discounted price. 

Imagine that you sit down in front of an Apple to do some computing only to find 
that the person using it before you has left the machine on, with the following program 
displayed on the screen. 


110 P@=2 
120 P1=4 
130 P2=6 
140 P3=8 
150 INPUT X 


160 IF X <=10 THEN Y = X * PO: GOTO 200 
170 IF X <= 20 THEN Y = X * P1: GOTO 200 
180 IF X <= 30 THEN Y = X * P2: GOTO 200 
190 IF X <= 40 THEN Y = X * P3: GOTO 200 
200 PRINT Y 

210 END 


The program is simple but puzzling. Curiosity gets the better part of you and you 
decide to run it You enter several values and receive the results indicated in Table 
92. 


Table 9 2 
X-Input and Y-Output Values 


Input Output 


You are intrigued by a program that produces the same results when 2 and 1234 are 
used as input values This is a classic debugging situation. You have tested a program 
and suspect that something is wrong because the output seems implausible. 

In our attempt to evaluate this program we begin by listing it Since we suspect 
the accuracy of the output value, our next step is to locate the line printing the output 
and the name of the output variable In this case, we quickly determine that the output is 
being produced by line 200 and the output variable name is Y Continuing our 


181 


182 


Program Structure and Debugging 


backward or upward scan of the program, we search for statements that assign a 
value to Y Four such statements are quickly found. Statements 160 to 190 assign a 
value to Y depending upon the value of X. Further investigation reveals that X is ihe 
value we input at the keyboard Studying ihe program further, we determine that no 
value will be calculated for Y if X is greater than forty. In such circumstances, we should 
expect the value zero to be printed since the Apple initializes all numeric variables and 
arrays to zero. Thus, we understand why an X value of 1234 produces a Y value of 
zero. But, we cannot see how an X value of two produces a zero as well. According to 
statement 160, a value of four should be produced. Further meditation reveals that the 
inconsistency is the result of a typing error Line 110 assigns the value two to P@—the 
second character is a zero, while in line 160 Y is multiplied by PO—both letters By 
merely replacing the letter O with a zero, the program now works correctly. While it 
works correctly, only its original author knows what useful work it was intended to do. 

Because you have become a proficient programmer, your instructor has asked 
you to help him check the programs of novice programmers. He has given them the 
assignment of writing a program that inputs a date in Gregorian form and outputs the 
same date in Julian form. The Gregorian form for January 9, 1980, for example, is 
1-9-80. The Julian representation of the same date is 80009 The Gregorian form 
consists of the numeric representation of the month, followed by the day of the month, 
occupying two digits each, followed by the last two digits of the year. In contrast, the 
Julian form consists of the last two digits of the year followed by the number a particular 
day is from the beginning of the year In the example above, January 9th is the 9th day 
of 1980, thus, the Julian date of 80009 Similarly, December 31, 1979 is ihe last day of 
the year, in Julian form, it would be 79365. With this background in mind, look at a 
program written by one student 


100 REM -- JULIAN DATE 
110 DIM T(12) 

120 DATA 31,28,31,30,31,30 
121 DATA 31,31,30,31,30,31 
125 FORI=1TO 12 

130 READ T(I) 


125 NEXT! 

140 REM 

200 PRINT "MONTH ';: INPUT M 

205 PRINT DAY "INE UD D 

210 PRINT"YEAR' ‘;: INPUT Y 

215 IF INT(Y / 4) * 4 = Y THEN T(2) = 29 
220 S=0 


300 FORI=1TOM - 1 
305 S=S$+ Tl) 
310 NEXT | 

315 JD=S$+D 
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325 Y = Y * 1000 

330 JD=-JD+: Y 

335 PRINT "JULIAN DATE IS ';JD 
400 END 


Reading the program, it looks pretty good. It even handles leap years correctly. 
The next step is to run the program. 


MONTH ?3 
DAY ?10 
YEAR 780 


JULIAN DATE !S 80070 


MONTH ?3 
DAY 274 
YEAR ?79 


JULIAN DATE !S 79060 


MONTH ?12 
DAY 731 
YEAR ?79 


JULIAN DATE IS 79365 


MONTH ?1 
DAY 71 
YEAR %?80 


JULIAN DATE IS 80032 


Checking the results by hand we can see that all Julian dates are correct except 
the last one. In this case, the Julian date for January 1, 1980 (010180) is given as 
80032. We have discovered an important flaw in the program It has treated January 
Ist as if it were February 1st. Scanning the program, we note ihat the day from the 
beginning of the year is calculated by summing the number of days in all months prior to 
the current month and then adding the day value This occurs in the FOR-NEXT loop 
beginning in line 300. Since in this test case, M — 1 is equal to zero the loop should not 
be executed at all. What is needed now Is the ability to trace program execution in 
order to see if the loop is executed as we suspect. The Apple and the TRS-80 have a 
trace facility that is useful for this purpose. With the Apple, the word TRACE is used to 
turn on the trace routine and the word NOTRACE is used to turn it off. With the TRS-80, 
the words TRON and TROFF are used for the same purpose These commands can 
be used in direct mode or within programs as numbered statements 

While the trace facility is turned on, the statement number of each statement 
executed is displayed on the screen each time it is executed. Staternent numbers are 
displayed each preceded by the ‘‘#”’ symbol and followed by a space. The Apple will 
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print as many statement numbers as possible on the same line Program input and 
output will be interspersed among statement numbers If we run a trace on the entire 
program we see that forty-five statements were executed in the process of changing 
one date from Gregorian form into Julian form. (REMark statements are included in the 
trace.) To avoid a screenful of output, it is desirable to trace only the specific 
statements we are interested in studying. In this case, there is only one statement to 
trace, statement number 305. Adding the following statements to our program 
accomplishes the task 


301 TRACE 
306 NOTRACE 


if you are using a TRS-80, use TRON in place of TRACE and TROFF in place of 
NOTRACE Next, we run the program: 


RUN 
MONTH ?1 
DAY 71 
YEAR ?80 


#305 #306 80032 


The trace has proved that statement 305 was indeed executed. We will discuss 
this finding in a minute. First, let us address the subject of simulating a trace facility for 
machines that do not provide one. We can merely add a statement like this: 


301 PRINT "#305 '; 


Since statement 301 is immediately prior to statement 305, it will be executed if 
statement 305 is executed More precisely, if statement 301 is executed, statement 
305 will be executed also There is the possibility that statement 301 might not be 
executed even though statement 305 is executed if there are GOTO statements that 
transfer control to statement 305. 

One final technique that we might use to determine if the loop was executed is to 
cause the loop index to be printed. After the program has finished execution, we can 
type: 


PRINT i 
lf a value other than zero 1s printed, we Know iial te ioup Was ExeCUleG 1 iS CASE Ci 
this program, the value "1" will be printed. 

All of our experiments confirm the fact that the loop was actually executed. The 
question remains as to why ANSI standards for Minimal BASIC specify that FOR-NEXT 
loops should not be executed at all if the initial value of the loop index is already past 
the end value. In such cases, as in the FOR-NEXT loop in the Julian date program, the 
loop should not be entered at all. Yet, we know that the loop was entered as a result of 
the trace experiments. The fact is that the Apple does not conform to the ANSI 
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specifications and neither do the PET nor the TRS-80. Most dialects of BASIC will 
perform this task as expected. But the conclusion to be drawn is that some programs 
will run correctly on Some machines and incorrectly on others. The only way to be sure 
this program works correctly on all machines Is to add a statement to prevent entry into 
the loop when the month value is one (January). 


295 IF M= 1 THEN 315 


Let us end our treatment of debugging with one final challenge in the form of 
another version of the Julian date program. Following is a program almost identical to 
the one displayed above, which produced incorrect results under some circumstances. 
However, the program following works correctly Can you determine why it works and 
the one above does not? Do you approve of the modification? Has the author resorted 
to a trick to make the program work? Is such a program portable to other dialects of 
BASIC? If you were the instructor, would you accept the second version? Here is the 
program: 


100 REM -—- JULIAN V2 

110 DIM T(12) 

120 DATA 31,28,31,30,31,30 
121 DATA 31,31,30,31,30,31 
125 FORI=1T0O12 

130 READ T(l) 


135 NEXT I 

200 PRINT "MONTH °;: INPUT M 

205 PRINT "DAY ‘; INPUT D 

210 PRINT "YEAR ‘;: INPUT Y 

215 IF INT(Y / 4) * 4 = Y THEN T(2) = 29 
220 $=0 


300 FORI=OTOM- 1 
305 S=S+ Til) 

310 NEXT! 

315 JD=S+D 

325 Y = Y * 1000 

330 JD=-JD+ Y 

335 PRINT JD 

400 END 
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The following programs illustrate some of the difficulties one encounters in debugging 
programs that run yet produce puzzling results. Programs that sometimes behave 
correctly and other times misbehave are particularly annoying. 
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1 Enter and run the following program. It is designed to allow us to examine the 
values of the function ¥Y = 2 * X°2 — 3 * X in the interval from X = 4 to X = 5 by 
taking various step sizes. 


100 PRINT "X-Y PAIRS AS X RANGES FROM 4 TO 5" 
110 PRINT "IN STEPS OF VARIABLE SIZE." 

120 PRINT "ENTER STEP SIZE '; 

130 INPUTS 

140 PRINT 

150 LET X=4 

160 LETY=2*X°2—3%*X 

170 PRINT X,Y 

180 IF X = 5 THEN 200 

190 LETX=X+S5 


200 END 
Run this with step sizes of 5, .25, 2, 1, and 05. Explain the behavior 
observed 

2 In this program we run a number through a rounding function (fo two decimal 


‘ vy tae mee She crates seth CAR Asie a 
places) anu nen curriparé tS vaiue with is crigina!l value. 


100 PRINT "ENTER A NUMBER 

110 INPUT N 

120 LET N1 = INT (N * 100 + .5) / 100 

130 PRINT N,N1 

140 REM TRANSFER TO END IFN =N1 

150 IF N= Ni THEN 180 

160 PRINT "IF N = ';N;" AND N1 = ";N1;" WHY IS’ 
170 PRINT "THIS STATEMENT EXECUTED?" 
180 END 


Run this program for some decimal numbers Try for example 5.246, 3.46, 1.51, 
and 2.9. Can you explain the results you see? 


3, This program simulates a problem of stocking an item of merchandise subject to 
variable demand A program was to be designed to accurmulaie total sales and 
average days hetween restocking of the item. When the inventory on the shelf 
falls below five, twenty items are to be placed on the shelf. The following 
oroblem, turned in by a studeni, runs without error but produces meaningless 
results. Debug it. 


100 PRINT "ENTER NUMBER OF DAYS SIMULATION RUNS 
110 INPUT DAYS 

120 REW INITIALIZE 

130 SALES = 0 

140 STCK = 20 
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150 PRINT "DAY STOCK SALES FINAL STOCK’ 

160 FORI= 1TODAYS 

165 REM SAVE STARTING STOCK VALUE 

170 SAVSTCK = STCK 

175 REM DETERMINE DAILY CUSTOMERS 

180 CUST = INT(RND(1) * 10 + 1) 

185 REM ACCUMULATE DAILY SALES 

190 SALES = SALES + CUST 

195 REM REDUCE STOCK BY SALES 

200 STCK = STCK — SALES 

205 REM DETERMINE IF RESTOCKING IS NECESSARY 

210 IF STCK >= 5 THEN 240 

220 STCK = STCK + 20 

230 RESTCK = RESTCK + 1 

235 REM PRINT DAILY RESULTS 

240 PRINT 1;TAB(7)SAVSTCK,CUST,STCK 

250 NEXT! 

260 PRINT "TOTAL SALES IN ';DAYS;" DAYSIS ‘;SALES 

270 PRINT "AVERAGE DAYS BETWEEN RESTOCKING IS ";DAYS / 
RESTCK 

280 END 


What lessons are learned from the errors in this program? 


4 Below is another student program designed to reduce a fraction to lowest terms. 
The program runs without error messages Sometimes it produces correct 
results, sometimes not. The program was built around an algorithm which finds all 
the factors of a whole number (other than the number and one). If no factors 
exist, then it prints a message that the number is prime. Here is the correct 
algorithm for that operation. 


120 INPUT N 

150 FORI=2TON/2 

160 IF N/1 <> INT(N / !) THEN 180 

170 PRINT I;" IS AFACTOR OF ":N 

175 Q=1 

180 NEXTI 

190 IF Q <> 1 THEN PRINT N;" IS PRIME’ 
200 END 


oatisfy yourself that the program above works correctly. Then, enter and run the 
following program, which attempts to take advantage of this algorithm. 


110 PRINT "ENTER NUMERATOR '; 
120 INPUT N 
130 PRINT "ENTER DENOMINATOR 
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140 INPUT D 

150 FORI=2TON/2 

160 IFN /1{ <> INT(N / 1) THEN 210 
170 IFD/1 <> INT(D / 1) THEN 210 


180 N=-WN/I 
190 D=D/I 
210 NEXT! 


220 PRINT "THE REDUCED NUMERATORIS ';N 
230 PRINT 'THE REDUCED DENOMINATOR IS ';D 
240 END 


Try the following data pairs: 


N D 
9 30 
9 45 
4 14 
12 20 


You should find that sometimes the fraction is reduced to lowest terms. Other 
times it is not. 


Review 


New terms and syntax introduced in this chapter are reviewed here. 
BUG aterm used to describe a program error. (Section 9.1) 
DEBUG _ the act of removing a program error or errors (Section 9 1) 


STRUCTURED PROGRAMMING _ programming that recognizes the natural struc- 
ture of the problem solution. Such programming uses fundamental control structures 
and modular construction to produce a linear arrangement of the major program 
blacks. (Section 9 2) 


DROGRAM BLOCK a maior subsection of a program devoted to a specified task 
Typical blocks provide for program identification, variable initialization, a main program 
loop, daia identification, and subroutines (Section 9.5) 


SUBROUTINE a discrete program segment that performs a specific function. 
(Section 9.4) 


CASE STRUCTURE a control structure that permits the selection of one option 
from among several. (Section 9.7) 


Review 


Basic SYNTAX 


GOSUB_ a BASIC keyword that transfers control to the statement number following 
For example, 200 GOSUB 1000 would transfer control to statement 1000 from 
statement 200. (Section 9 6) 


RETURN a keyword that terminates a subroutine transferring control back to the 
statement following the most recent GOSUB executed. GOSUB and RETURN are a 
matched set—we cannot have one without the other (Section 9.6) 


ON VARIABLE GOTO a set of keywords used to implement a case structure For 
example, 200 ON X GOTO 1000,2000,3000 will transfer control to statement 1000 
ifX = 1, tostatement 2000 if X = 2, to statement 3000 if X = 3, or to the next statement 
following 200 if none of these conditions exist. (Section 9 7) 


ON VARIABLE GOSUB aset of keywords used to implement a case Structure. This 
syntax combines the multiple option of the ON... GOTO with the properties of the 
subroutine. (Section 9.7) 


TRACE a BASIC keyword that causes the printing of a statement number as the 
statement is executed. This capability is useful in debugging a program. (Section 9 8) 


NOTRACE aBASIC keyword used to terminate the TRACE feature. (Section 9 8) 
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10.1 


FORMATTING AND 
a GRAPHICS 


INTRODUCTION TO FORMATTING 
AND GRAPHICS 


We have emphasized certain basic techniques for improving the utility of our programs 
and the appearance of their output. In particular, we have discussed the following: 


1 The value of user prompts, 

2 Labeling of output with appropriate text, 

3. Integration of text and data so that the output reads more naturally, and 
4 Use of printing fields to organize the output. 


All of these techniques might be considered cosmetic. If the program is doing 
what it is supposed to do, who cares how the output looks? We trust that you do not 
hold this view of programming. It is true that programs are written to solve problems 
rather than to display the ability of the programmer to format. However, they must not 
be so cursory or crude that they leave the user with more questions than answers. The 
user who has to study the internals of the program in order to interpret the output is 
likely to be discouraged with our help. 

We feel that attention to appearance of the computer output is very important. To 
improve the appearance and readability of the output we must go beyond the basics 
discussed earlier. We are concerned with appearance for its own sake and because it 
makes possible a more rapid and meaningful evaluation of the output. Consider a 
simple example. Below are two outputs of the same program. In the first case, on the 
left, no attempt at formatting has been made. In the second case, on the right, the 
same data has been formatted before printing. 
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TIME CHARGE 
5 1.97847E—05 
10 2.41026E — 04 
15 2.93630E —03 
20 0357715 
25 .0435786 
30 5.30896 
35 64.6764 
40 787.919 
45 9598.82 
50 116938 


TIME 


5.0 
10.0 
15.0 
20.0 
25.0 
30.0 
35.0 
40.0 
45.0 
50.0 


CHARGE 


0.000020 
0.000241 
0.002936 
0.035772 
0.435786 
5.30896 
64.6764 
787.919 
9598.82 
116938. 


lt is easier to interpret the trend of the righthand data in the second case 

We further believe that the ability to support our output with computer generated 
graphic material is seldom fully exploited. We will discuss methods of generating bar 
graphs, X-Y plots, and high resolution graphic material 


THE TAB FUNCTION 


We mentioned in Chapter 6 that functions benave like processors. We enter a number 
called the argument of the function, the processor works on it, and a value is returned 
that bears some relation to the argument In the case of the TAB function the output is 
not a number but an instruction to the computer to move the printing head (or cursor) 
right of the left-most printing position to the printing position given by the argument. 
Consider the following program fragment. 


100 FORI=1TO3 


110 PRINT '1234567890'; 


120 NEXT I 
420 BDINT 

140 PRINT "A’; 

150 PRINT TAB (9) 'B’; 
160 PRINT TAB (21) 'C" 


Numbering of print positions differs from machine to machine A run of the 


program for the three microcomputers looks like this: 
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1234567890 1234567890 1234567890 
A B C 


The Apple uses a numbering system for the TAB function which starts with 
one (7) at the left margin—in the fashion of a typewriter PRINT TAB (9) 
prints in position nine (9) 


PET AND TRS-80 


1234567890 1234567890 1234567890 
A B Cc 


The PET and TRS-80 start tab positions at zero rather than at one PRINT 
TAB (9) prints in position ten (10) 


systems deal with positive and negative numbers in different ways A run of the 
following demonstration program fragment demonstrates the differences between the 
Apple, the PET, and the TRS-80 


100 PRINT "1234567890" 
110 PRINT 2 

120 PRINT —3 

130 PRINT "1234567890" 
140 PRINT TAB(8)2 

150 PRINT TAB(8)—3 


1234567890 


—3 


1234567890 


—3 
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PET AND TRS-80 


1234567890 
2 
-3 


12345678390 
2 
—3 


The TAB function ts particularly valuable in formatting text headings However, in 
formatting numbers we are frequently more interested in vertical decimal point 
alignment. The TAB function will not cause decimal point alignment if the data differs in 
the number of digits to the left of the decimal point. We touched upon decimal point 
alignment in Chapter 8 and will consider it again in this chapter. 

The TAB function on microcomputers will generally not move the printing position 
left. Consider the following program fragment 


100 PRINT "1234567890 1234567890 1234567890' 
110 PRINT TAB(25)'A'; 
120 PRINT TAB(10)'B' 


The output is: 


1234567890 1234567890 1234567890 
AB 


The print head, being beyond the designated print position in line 120, simply 
prints the character *'B"’ in the next available print position (number twenty-six in this 
case) 

The features of the TAB function on each machine are discussed as follows: 


APPLE 


The Apple TAB function will accept arguments up to position 255. TAB 
arguments over 255 give error messages TAB(OQ) results in a tab move to 
position 256. This feature can be particularly troublesome when the 
program is computing the argument of the TAB function and fails to check 
for zero arguments. 
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PET 


The PET accepts and executes TAB arguments up to and including 255 
TAB argument values over 255 produce error messages. 


== TRS-80 | 


The TRS-80 performs all TAB function arguments in excess of 63 by 
reducing the argument to modulus 64. That is, the computer tabs to the 
remainder of the value entered divided by 64 Then TAB (65) becomes 
TAB (1), TAB (132) becomes TAB (4), etc 


10.3 USING A PRINT IMAGE 


A valuable formatting device is the print image, which is available on most 
minicomputers and on some microcomputers The TRS-80 has such a feature although 
itis absent in the PET and in the Apple With the print image an entire table can be 
formatted We have developed a subroutine which will produce a print image This 
subroutine is contained in the Library of Subroutines (Appendix B,p B21). We illustrate 
its use below. 

Suppose we are to print an amortization schedule for a car loan in the 
sequence: 


Month—Start Balance —interest—Payment—Final Balance 


Month numbers may run as high as forty-eight. Balances may need four digits to 
the left of the decimal point and payments may need three digits. Monthly interest may 
run as high as $150 With this information we can define an image for the actual entries. 
We give this image a character variable name. 


120 LET PUS ="#H# SHHH#H.H#H SHH. FH GHEE. 
SHHHH.HF" 
(PU for ‘print using’’) 


We develop a program to use this image 


100 REM -- DEMONSTRATION PROGRAM FOR PRINT USING 

110 REM —— INITIALIZE 

120 LET PUS ="## $HRHH.HH SHH. GHEH.HH 
SHHHH.FH' 

130 LET NP(1) = 1 

140 LET NP(2) = 4000 

150 LET NP(4) = 130 
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160 REM PRINT HEADER 
170 PRINT "NO. BALANCE INT PAYMENT BALANCE" 
180 REM PRINT TABLE 

190 FORI=1T0O10 

200 LET NP(3) = INT(NP(2) * .14/12 * 100 + .5) / 100 

210 LET NP(5) = NP(2) + NP(3) — NP(4) 

215 REM CALL PRINT USING SUBROUTINE 

220 GOSUB 8600 

230 REM UPDATE MONTH AND BALANCE 

240 LET NP(2) = NP(5) 

250 LET NP(1) = NP(1) + 1 

260 NEXT I 


TRS-80 note’ To run this program on the TRS-80 replace statement 220 with the 
following. 


220 PRINT USING PU$;NP(1),NP(2),NP(3),NP(4),NP(5) 


This program will print the first ten months of the amortization schedule as shown 


below: 

NO BALANCE NT A VSaENT DALASICE 
1 $4000.00 $46.67 $130.00 $3916.67 
2 $3916.67 $45.69 $130.00 $2239.36 
3 $3832.36 $44.71 $130.00 $3747.07 
4 $3747.07 $43.72 $130.00 $3660.79 
5 $3660.79 $42.71 $130.00 $3573.50 
6 $3573.50 $41.69 $130.00 $3485.19 
7 $3485.19 $40.66 $130.00 $3395.85 
8 $3395.85 $39.62 $130.00 $3305.47 
9 $3305.47 $38.56 $130.00 $3214.03 

10 $3214.03 $37.50 $130.00 $3121.53 


The print using subroutine causes the data to be rounded to the correct number 
of decimal points and entered in the correct format. If a number is out of range of its 
format statement (for example, too large) a warning indicator will be printed. We also 
noie thai the characier data can be mixed within the print image. We are not limited to 
dollar signs but could print text such as the following: 


150 LET PUS$ = "MONTH ## BALANCE IS ###.##' 


EXERCISE SET 10.1 


1 Solve the following problems using the TAB function. 
(a) Generate three vertical lines in print positions 3, 15, and 27 The lines 
should extend vertically for ten print positions. Use a keyboard symbol of 
your choice to represent the elements in each line 
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(b) 


(d) 


Teletype Graphics 


A column of numbers stored in X(1) through X(20) is to be printed out. The 
numbers are between 100 and 999 in value and have decimal parts. The 
decimal point in all these numbers is to be in print position 27 Write a 
program that will produce the column. 


The following column headings are to be centered on columns 5, 20 and 
35. Write a statement(s) that accomplishes this. 


PAYMENT INTEREST BALANCE 


Write a program that will generate the quarterly balance on $5000 
deposited in a bank at 6% annual interest compounded quarterly. Print the 
quarter number and the new balance in two columns starting at positions 7 
and 12. Develop five years of data. The algorithm for computing the 
balance is 


Balance = Deposit * (1 + 6 /m)7*(m*n) 


where r is the decimal interest rate, 
mis the number of compoundings per year, and 
nis the number of quarters in the bank 


Do not carry fractions of a cent. 


Solve problem 1(d) using the print image technique. 


Write a program that uses the print image to produce a table of daily net sales 
with sales tax and excise tax tabulated Use the following image: 


"HH NET=S$H#H##F.FHR ST=-##FF.4AF ET=$HHRR.FH 
Sales tax is 5% of net sales and excise tax is 11% of net sales. Use the following 
data. 
Day Net Sales 
1 $6537.20 
2 $8421.25 
3 $9320 75 
4 $8778 10 
5 $8329 50 
6 $7922 35 


10.4 TELETYPE GRAPHICS 


The term teletype graphics refers to the use of standard symbols on a terminal to 
generate graphic material Lines can be drawn, points can be plotted and symbolic 
representations of real objects can be generated with standard symbols on the 
keyboard. The development of graphic output in the form of charts and plots can 
enhance the readability and impact of the output 
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We begin with a problem in which we wish to display the grade distribution on an 
examination. That distribution is: 


A's =2 D's = 5 
B’s =6 F's =2 
C's =8 


Our program will set up an array to hold the count of each grade and then read 
the values into this array. In the following statements, an array MARK is dimensioned at 
size five (one location for each letter grade) and the data statement contains the actual 
count of the occurrences of each grade. The FOR-NEXT loop simply reads the values 
from the data statement into the array MARK 


150 DIM MARK(5) 
160 FORI=1TO5 
i76 READ MARK(G) 
180 NEXTI 

350 DATA 2,6,8,5,2 


Next we must instruci the computer to print a scale so we can read the bar graph. 
Tnis can be Gone easily wih iné folowing PRINT siatement. Note how the nolus 
character represents the values of five and fifteen and the colon represents zero, ten, 


and so forth. 


Now let us turn our attention to the printing of the bar graph itself Since we have 
five different grades, we will want to produce five bars, one for each letter grade We 
will accomplish this with a FOR-NEXT loop, which will execute five times. We will also 
use the TAB function to locate the print character ai the proper column on the line We 
will use the values stored in the array MARK to position the print head 


200 FORI=1TO5 

210 PRINT ":'; 

220 PRINT TAB(MARK(I))'*" 
230 NEXT I 


Here is the output of the program. 


* 


This may not look much like a bar graph since our program only prints a single star, not 
a bar We can improve this by nesting another loop within our FOR-NEXT loop. The 
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new inner loop will cause a star to be printed at each column on a line beginning with 
column one and ending with the column represented by the value of the respective 
element of the array MARK. The inner loop is listed below 


220 FOR K = 1 TO MARK(|I) 
222 PRINT "*"; 

224 NEXT K 

226 PRINT 


Let us also add a PRINT statement to print scale values to make the output more 
readable. 


185 PRINT "O 10 20" 


Our revised program is reproduced below along with sample output. Some 
remarks have been added 


100 REM -- DEMONSTRATION BAR GRAPH 

110 REM INPUT VARIABLES: MARK(5) 

120 REM LOCAL VARIABLES: I, K 

130 REM OUTPUT VARIABLES: ALL GRAPHIC 
140 REM LOAD DATA ARRAY 

150 DIM MARK(5) 

160 FORI=1TOS5 

170 READ MARK (I) 


180 NEXT I 

183 REM PRINT BAR GRAPH 

185 PRINT ‘O 10 20" 
190 PRINT": ....4+....2 20-0 -ete5 002 ' 
200 FORI=1TO5 

210 PRINT ":'; 


215 IF MARK(I) = 0 THEN 226 
220 FOR K = 1 TO MARK(I) 
222 PRINT ‘*”’; 

224 NEXT K 

226 PRINT 

230 NEXT | 


KK KKK 
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Line 215 is necessary only if you want to be able to graph a data set with a zero 
value If MARK (I) = O, the loop beginning at 220 will execute once. 

Since the bars are not labeled with letter grades, we must rely on our 
understanding of the program itself to tell which bar represents grades of A, B, etc. One 
solution to this problem is to add the following statements to our program. 


182 LET LTR$ = 'ABCDF' 
222 PRINT MIDS$(LTR$,I, 1); 


The output of this modification is shown below: 


0 10 20 
Sees Hee ete ewe te nee’ 
7AA 

: BBBBBB 

:CCCCCCCC 

: DDDDD 

> FF 

Sees Hee ete ee ete wee! 


TELETYPE GRAPHICS—xX-Y PLOTS 


We will next consider the simplest method of developing an x-y plot. We will plot the 
expression y = .3 * x~ 2 + 2 when the independent variable, x, runs from one to tenin 
steps of one. The generation of dependent variable values using a FOR-NEXT loop 
has been considered previously A loop such as 


130 FORI=1TO 10 
140 LETY=.3*1°2+2 
150 NEXT I 


will generate the y value corresponding to each x. If we tab to the y value 
corresponding to each x, place a marker there and then superimpose the coordinate 
axes, we should have an x-y plot. 

Consider the following program. 


100 REM -- DEMONSTRATION OF X-Y PLOT 

110 REM LOCAL VARIABLE: Y 

120 REM DRAW Y AXIS 

130 PRINT 'O 10 20 30 Y-AXIS" 
140 PRINT": 2... 4.0. cr ee pe cel ct ete eet eee eT 
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150 REM DRAW X AXIS AND PLOT POINTS 

160 FORI=1TO10 

170 LETY=.3*1°2+42 

180 LET Y = INT(Y + .5) 

190 PRINT ":'; 

200 (FI /5=INT(I/ 5) THEN PRINT '—'sI; 

210 PRINT TAB(Y)'"*" — [use TAB(Y + 1) on the Apple] 
220 NEXTI 

230 PRINT "X-AXIS" 

240 END 


Addition of one in line 210 for the Apple is necessary because the zero of the 
y-axis iS in position one on the screen The output of the program is displayed below 


0 10 20 30 Y-AXIS 
De eee +e wt ee +e wt eae +e ane tae 
* 
* 
* 
* 
e -5 * 
* 
* 
* 
* 

:-10 ‘x 
X-AXIS 


EXERCISE SET 10.2 


1 Modify the bar graph program in Section 10 4 to present seven bars. The bars 
are to have the lengths 8, 9, 23, 9, 3, 8, and 5 and are to be labeled A, B, C, D, F, 
W, and | respectively 


2 Modify the X- Y program in Section 10.5 to plot the following: 
(a) y=.2*x°24 x 4+ 3 (inthe interval x = 1 to 10) 

(b) y=35 — .3* x 2 (in the interval x = 1 to 10) 

(Cc) y=xXx + 10 (in the interval x = 1 to 10) 

(d) y= 25 — 2* x (in the interval x = 1 to 10) 
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UP WITH THE BAR GRAPH 


In Section 10 4 we treated simple bar graph programming. The horizontal orientation of 
line printers and terminals makes such applications easier to do if we use the vertical 
axis for the x variate. Displaying the x axis vertically may confuse some and outrage 
others Confusion arises from the fact that visuals in textbooks and other sources 
commonly place the x variate on the horizontal axis. Here we will aitempt to turn bar 
graphs upright so that they can stand on their own bottoms. The bar graph printed in 
section 10.4 is shown below 


KK KKK 


Our goal here is to take the same data and produce a bar graph with a horizontal 
xX axis. The easiest approach to this task may be to inspect the final produci and inen 
discuss the manner in which it was programmed Here is the final product 


15: 
10: 
eK 
**K * 
* kK * *K H&K 
Qc * Kk & **K * * 
ww 


The program begins with an initialization block much like the one we used in 
Section 10 4. 
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150 DIM MARK(5) 
160 FORI=1TO5 
170 READ MARK(I) 
180 NEXT| 

350 DATA 2,6,8,5,2 


Here is a loop which will generate the &-th line of the graph 


200 LETL$=" " 

210 FORI=1TO5 

220 IF MARK(I) >= K THEN LET L$ = L$ + '***":GOTO 240 
230 LETL$=L$+" ' 

240 LETL$ =L$ +" 

250 NEXT I 


L$ is an output string that will contain the appropriate parts of the bars corresponding 
to each printed line Statement 200 inserts a two column blank spacer at the beginning 
of the output string. Inserting the spacer clears the previous content of the string. 
Statement 240 inserts a two column spacer between bars Statements 220 and 230 
determine the content of each bar—either blank or a field of stars This loop must be 
performed one time for each output line; therefore, it must be nested inside another 
loop. Here is the program fragment with both loops present. 


190 FORK = 15701 STEP —1 

200 LETL$=" " 

210 FORI=1TO5 

220 IF MARK(I) >= K THEN LET L$ = L$ + "**":GOTO 240 
230 LETL$=L$ +'" " 

240 LETL$=L$ +' 


250 NEXT! 

260 IF K / 5 = INT (K / 5) THEN PRINT K; 

270 PRINT TAB(3)’:’; (Use TAB(4) on the PET and the TRS-80.) 
280 PRINT L$ 

290 NEXT K 


The only task remaining is to print the X axis and label it. This can be 
accomplished as follows: 


300 PRINT" ‘; (Use four blanks on the PET and the TRS-80 ) 
310 FORI=1TO30 
320 PRINT "—" 
330 NEXT I 
335 PRINT 
340 PRINT" A B C D F" 
(Insert one more blank in front of A on the PET and the TRS-80 ) 
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We could develop a method for displaying X-Y plots upright as well However, 
with the microcomputer graphics we can generate the graph in the correct orientation 
in a routine manner 


10.7 LOW RESOLUTION GRAPHICS 


Low resolution graphics refers to the ability to produce graphic images by 
addressing an array of points on the video screen These points may be the 
conventional printing positions or some subdivisions of these positions We will first 
treat the low resolution graphics on the Apple 


Photo 10 1 


The TRS-80 screen displays bricks that are used in low resolution graphics. (Photo 
courtesy of Radio Shack, a division of Tandy Corp.) 
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APPLE 


The Apple microcomputer actually has four screen buffers. These screen 
buffers are memory areas containing information that may be displayed on 
the video monitor Two buffers are used for text and low resolution 
graphics and the other two buffers are used for high resolution graphics 
The first text buffer is the one normally displayed It is used for text and low 
resolution graphics. The second text buffer is difficult to use and we will not 
discuss it further Only one high resolution buffer is available on Apples with 
less than 24K of memory and no high resolution graphics ts available if an 
Apple has less than 16K of memory. 

A graphics system should be based on some sort of screen 
coordinate system. For the Apple that system has its zero point at the top 
left of the screen. Unfortunately, that is not very convenient as we normally 
plot right and up. The print element is a rectangular brick which is one half 
the size of a print position in the vertical direction. The brick is seven dots 
wide and four dots high. The screen grid consists of a forty by forty grid 
(1600 print positions) These positions are individually addressable 
through a PLOT command. The positions are numbered zero through 
thirty-nine starting from the top left of the screen Note that this differs from 
the TAB positions that start at one, not zero 

To illustrate the low resolution graphics in an x-y plot, Suppose we 
plot the equation y = 32 - x ona set of axes at the lower left corner of the 
screen (x horizontal and y vertical) Let x range from one to thirty Consider 
the following program fragment 


100 GR 

110 COLOR = 15 
120 FORI=1TO30 
130 LET X =! 

140 LET Y = 32 — X 
150 LETY=39-Y 
160 PLOT X,Y 

170 NEXT! 

180 FORI=OTO39 
190 PLOT OI 

200 PLOT I, 39 

210 NEXTI 


We need to consider certain statements in this program in more 
detail Statement 100 places the computer in graphics (low resolution) 
mode This means that the top twenty lines on the screen are reserved for 
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the bricks, and the bottom four printing lines are used for any text we want 
to print. 

Should we wish to use the bottom four lines for bricks we must add 
the following statements immediately after the GR statement: 


102 CALL — 1998 
104 POKE -— 16302,0 


The first statement sets the entire screen buffer to black and the second 
statement causes the bottom four lines to be used for graphic display. 

Statement 110 is necessary if we are to see the graphic image since 
the comand GR sets the color to zero (black). The number selected for 
color is a matter of preference Values in the range of zero to fifteen are 
proper If you have a black and white monitor, we recommend the value of 
fifteen for white. 

statement 150 is necessary if we are to restore the positive y-axis to 
its usual upward direction. This statement inverts the screen coordinate 
system. 

Statement 160 is new syntax that instructs the computer to illuminate 
the brick at position x,y. Statements 190 and 200 produce a set of axes. A 
ruin of this proaram is shown below: 


When the program above ends execution, the Apple will be display- 
ing graphics. You can type TEXT followed by RETURN to resume normal 
text display. 

The Apple low resolution graphics has some additional capability for 
line construction that is useful in bar graph and histogram construction. For 
example, a horizontal line may be drawn at any row of the screen by using 
the syntax: 
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HLIN X1, X2 AT Y 


The line starts at position X1 in row Y¥ and ends at position X2 in row 
Y Similarly, a vertical line of variable length may be drawn at any column of 
the screen using the syntax. 


150 


VLIN Y1, Y2 AT X 


To illustrate this capability consider the problem of constructing a 
histogram with the following characteristics 


Column Quantity 
3 D 
4 15 
5 22 
6 37 
7 15 
8 18 
9 4 


The base of the histogram should be in row 39. A histogram differs 
ftom a bar graph in that the bars normally have no spaces between them 
The following program fragment should produce the desired histogram 


100 
110 
120 
130 
140 
150 
160 
170 


GR 

COLOR = 15 
FORI=3TO9 
READ Y 

LET Y= 40 —-Y 
VLIN Y, 39 ATI 
NEXT | 


DATA 5,15,22,37,15,18,4 


Statement 140, which effects a reversal of Y direction, uses forty 
rather than thirty-nine since no space is reserved for a zero bar 

Low resolution plots in the standard printing positions are also 
available on the Apple through the use of two special TAB commands 

HTAB X moves the print position right of the left margin to X. VTAB 
Y moves the print position down from the top of the screen Y units. 
Consider the following program fragment: 


100 
110 
120 
130 


HOME 

PRINT "Y AXIS" 
FORI=1TO19 
PRINT ":" 
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140 NEXT I 

150 PRINT":....:....2....2e2+-: X AXIS' 
160 FORI=OTO1 

170 LETX =| 


180 LETY =X+2 
190 VTAB 21 —Y 
200 HTAB X + 1 
210 PRINT "*" 

220 NEXT | 


This program should pilot the straight line Y = X + 2. The HTAB and 
VTAB then give us cursor control equivalent to that found on other 
machines. Cursor control on the PET is discussed below 


Low resolution graphics on the PET is available only through the usual 
printing positions (twenty-five lines of length forty = 1000 printing 
positions) This compares with 1600 positions on the Apple and 6144 
positions on the |HS-8U (Level Il). PFE! graphics makes avaliabie speciai 
graphic characters that are convenient for certain applications. Although 
we are esseniially using teletype graphics with the PET, the graphic 
symbols are contiguous to one another As a result, straight lines need not 
be broken and bar graphs can be constructed with solid bars. We call your 
attention to the following characters, which are particularly useful: 


1 The upper case of the @ key produces a horizontal bar centered 
on the printing position 

2 The upper case of the ] produces a vertical bar centered on the 
printing position 

3 The upper case of the four lowest keys on the number pad join 


symbols 1 and 2 to form square corners. 
4 Rounded corners are available in the upper case o7 U, |, J, and K. 


5  Theupper case of keys 1, 2, 3, and 4 on the number pad are nice 


far dining wAricle vwiarle 
enti we NOI i] Ce ee a ee ee wi as 


6 The most intense symbol is obtained by the reverse blank space 
Try the immediate command: 


?"RVS SPACE SPACE" 


A serious limitation of PET Jow resolution graphics ts the absence of a 
screen coordinate system As a result one must improvise a systematic 
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method of reaching the various screen positions. One method of doing this 
is illustrated in the following program fragment. 


100 PRINT CHR$(147) 

110 FORI=1TO39 

120 LET R$ = R$ + CHRS(29) 
130 LET D$ = D$ + CHR$(17) 


140 NEXT I 
150 FORI=1TO 10 
160 LET X =1 


170 LETY =2*X+3 
180 LET Y = 24-Y 

190 PRINT CHR§$(19); 

200 PRINT LEFTS(D$,Y); 
210 PRINT LEFTS(R$,X)'*" 
220 NEXT I 


This program fragment will plot the equation y = 2x + 3 over the 
interval x = 1 to 10. 

Statement 100 clears the screen Statements 110 and 120 load 
strings with character representations of ASCII codes for moving the cursor 
right and down respectively. Statement 190 sends the cursor home and is 
necessary because of the absence of a screen coordinate system. We 
must send the cursor home in order to have a standard reference point 
from which to move. Statements 200 and 210 cause the correct down and 
right movements prior to printing the point with ‘‘*'’ While this procedure is 
somewhat more cumbersome, the ability to select syrnbols to be printed 
and the ability to mix text and graphics are definite advantages. 


TRS-80 


The TRS-80 low resolution graphics has the most resolution of the three 
systems. Each of the 16 printing lines is subdivided into three giving a 
resolution of 48 in the vertical direction Each of the 64 columns is divided 
into two giving a horizontal resolution of 128. Thus a total of 48 x 128 = 
6144 positions are addressable. The TRS-80 has some of the desirable 
features of both the Apple and the PET It has a screen coordinate system 
with the origin in the upper left corner (as with Apple) It has the ability to mix 
graphics and text (as with PET). The syntax for using the coordinate 
system is 


SET (X,Y) 
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Additional features are the ability to RESET, the ability to PRINT @ a 
position (fhe original printing positions—not the graphics positions), and 
the ability to determine if a graphic point is SET or not. 

In the Apple section we displayed the low resolution graphics plot of 
the equation y = 32 — x. That same plot for the TRS-80 follows. 


The program which generated this plot is similar to that shown in the 
previous section on the Apple Necessary changes to the previous 
program are replacement of statement 100 with 100 CLEAR, each plot 
statement is replaced by a SET() statement, and the value of thirty-nine in 
statements 150, 180, and 200 needs to be changed. This value should be 
forty-seven rather than thirty-nine Note that the TRS-80 brick has four rows 
of dots in three columns 


EXERCISE SET 10.3 


1 Modify the upright bar graph program in Section 10 6 to display seven bars The 
bars are to have lengths 8, 9, 23, 9, 3, 8, and 5 and are to be labeled A, B, C, D, 
F, W, andi respecilvely. 

2 Use iow resolution graphics to solve the following problems: 


(a) Construct a bar chart (horizontal bars) representing the following percent- 
age responses to a survey on job satisfaction (very satisfied) by category: 


Challenge 45% 
Financial Reward 37% 
Comfort 32% 


Sec. 10.8 High Resolution Graphics—For Apples Only 211 


Relations with Co-workers 44% 
Resource Adequacy 52% * 


(b) Construct a bar chart (vertical bars) representing the following percentage 
responses to a Survey’ 


Unsatisfactory 5% 
Poor 12% 
Fair 33% 
Good 22% 
Excellent 22% 
Superior 6% 


(c) Construct a histogram showing the following distribution of cars in a sample 
of 100 car owners. 


20 sub-compact 
33 Compact 
25 Mid-size 
12 Large 
Ss) Luxury 


10.8 HIGH RESOLUTION GRAPHICS— 
FOR APPLES ONLY 


High resolution graphics refers to the ability to produce graphic images by 
addressing a dense array of points on the video screen We will discuss high resolution 
graphics on the Appie. The PET and the TRS-80 do not have high resolutions graphics 
except perhaps through special software. 

The Apple ll has a screen grid of 280 by 160 plotting points (extendable to 280 by 
192). The numbers for the 280 horizontal positions run from 0 to 279 inclusive For the 
vertical positions the numbers run from 0 (at the top of the screen) to 159 (or 191) High 
resolution graphics has the same point plotting capability that is found in low resolution 
graphics Lines can be drawn with the added ability to draw a line between any two 
points Thus, the vertical and horizontal line syntax is not necessary. 

When we display the first high resolution graphics page with the HGR command, 
the bottom four lines of text space are usually reserved for the display of text. 

We illustrate the new syntax with two program fragments. The first places a point 
in the 110-th column from the left and the bottom row of the high resolution screen. 


100 HGR 
110 HCOLOR = 3 
120 HPLOT 109,159 


*Source: Data from US Bureau of Census , 1978 
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You should note the prefix H on each of these commands. We suggest three (white) for 
HCOLOR on black and white screens. Since the positions start at zero the 110-th 
column is position 109 just as the 160-th row ts position 159. 

Another version of this program is shown. 


100 HGR 
110 HCOLOR = 3 
120 HPLOT 109,191 


When you run this program, nothing appears to happen. lf we add the following 
statement and rerun the program, a dot appears at the bottom of the screen: 


105 POKE — 16302,0 


This statement sets a switch that causes the entire first page of the high resolutions 
graphics buffer to be displayed rather than a mixture of text and graphics. 

The next program illustrates the line drawing capability. We are to connect the 
point plotted above with the point in screen position 59,75. 


100 HGR 
110 HCOLOR=3 


a =m SSSN 5 US SS I EO ESS 7 
124 MIrhY IUD, bum iV voyreu 


This HPLOT command may be continued in the same siatemenit to other points. For 
example, we might write line 120 as follows: 


120 HPLOT 109,159 TO 59,75 TO 0,0 


In using either high or low resolution graphics on the Apple it is important to know 
where to position the cursor so that text materia! to be displayed with graphics is not 
printed beneath the graphic image. If you go into graphics mode with the cursor above 
line 21, you may lose sight of any subsequent printed material. Therefore we suggest 
that you accompany each command for graphics with a VTAB command as shown 
below The HOME command will clear the screen of any printed material that you do 
not want in the text window We suggest ihe following sequence’ 


4" LIAAAC. LIGD.- Li 
~w ry 


DW OP bNvaviaee PENA ee iCOLoR = 2: VTAB = 21 


The command TEXT will clear the graphics from the screen leaving whatever 
may have heen nrinted underneath Try the following oroqram 


100 HOME: HGR: HCOLOR = 3: VTAB = 21 

110 HPLOT 0,0 TO 279,159 

120 PRINT 'TO CLEAR THE SCREEN PRESS ANY KEY.’ 

130 GET A$: IF A$ = "" THEN 130 

140 TEXT 

150 PRINT "NOTE THAT THE GRAPHIC IMAGE DISAPPEARS." 
160 PRINT "PRINTING CONTINUES DOWN THE PAGE.’ 
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The real advantage of the high resolution graphics mode is to produce point plots 
and line graphs. We consider two example programs and their output 


100 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


REM —— POINTPLOT 11-20-80 
REM LOCAL VARIABLES: | 
REM $OUTPUT VARIABLES: X, Y 
HGR: HCOLOR = 3: HOME: VTAB 21 
REM PLOT AXES 

HPLOT 100,0 TO 100, 150 
FORI=OTO15 

HPLOT 101,10 *! 

NEXT | 

HPLOT 0,100 TO 200,100 

FOR! =0OTO 20 

HPLOT 10 * 1,99 


NEXT | 

REM PLOT CURVE 
FORI = —7TO10STEP.1 
LETX =! 


LETY =.2*X°3—2*XK°2—7*X+ 50 

HPLOT 100 + 10 * X,100 — Y 

NEXT | 

REM LABEL GRAPH 

PRINT "GRAPH OF THE CURVE: 

PRINT "Y = .2X°3 — 2X°2 — 7X + 50(-—7 TO 10)’ 
PRINT "EACH DIVISION ON THE Y AXIS = 10 UNITS." 
GET A$: IF A$ =" * THEN 340 

END 


Here is the output of this program. 
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GRAPH OF THE CURVE: 
Y = .2X°3 — 2X2 — 7X + 50(-—7 TO 10) 
EACH DIVISION ON THE Y AXIS = 10 UNITS. 


And another example: 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


REM —— LINEGRAPH 71-22-80 

REM INPUT VARIABLES: SALES 

REM LOCAL VARIABLES: I, SVSALES 
REM OUTPUT VARIABLES: SALES 
HGR: HCOLOR = 3: HOME: VTAB 21 
REM PLOT AXES 

HPLOT 10,9 TO 10,159 TO 200, 159 
FORI=0OTO 15 

HPLOT 11,9 + 10* 1 

NEAT | 


FORI=- 1TO6 
HPLOT 28 * 1,158 
NEXT | 


REM PLOT LINE GRAPH 

READ SVSALES 

FORI=1TO5 

READ SALES 

HPLOT 28 * 1,159 — SVSALES TO 28 * (I + 1),159 — SALES 
NEXT | 

DATA 48,69, 79,34,56,120 

PRINT" 75 76 77 78 79 80 SALES’ 

PRINT "EACH VERTICAL MARK = 10 THOUSAND UNITS." 
END 


The output is shown below. 


| 
| 


| / 


75 76 77 78 798 $80 SALES 
EACH VERTICAL MARK = 10 THOUSAND UNITS. 
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lf the Apple you are using has 24K of memory or more, you can choose to use the 
second page of high resolution graphics for plotting. This is done by using HGR2 
instead of HGR. It is possible to have different images on each page and switch from 
one to the other as we will demonstrate in Chapter 13. 


EXERCISE SET 10.4 


1 Draw a set of coordinate axes that intersect at screen position (100,100). Each 
axis should extend 100 units in the positive direction (up or right) and 50 units in 
the negative direction (down or left). 


2. Draw a box of side length 100 centered at (75,75) 


3. Develop a program to plot the equation 
Y = (X° 2) /7 — 32 


on the coordinate axes of problem 1. Let X range from -30 to +30 


4. One of the problems encountered in working with any plotting program is plotting 
off screen. Error messages result and our program stops It is possible to check 
values to be plotted before they are executed. Establish coordinate axes that 
intersect at 100,150 and plot the equation 


Y=.5*X°2 
over the interval X = -20 to 20. Do not pass Y values larger than 150 to the 
HPLOT command 


D. Construct a line graph using the data below. Place each year's data fifteen 
spaces apart and let each vertical unit equal half a year Draw curves joining the 
data points for both males and females. 


Life Expectancy 


Year Male Female 
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CONTROL OF DATA FORMAT 


One of the advaniages of BASIC over FORTRAN, and other more sophisticated 
computer languages, is the ability to obtain output without knowing much about 
formatting. FORTRAN, for example, requires specific formatting for each numerical 
output. As a result, one is forced to learn the formatting options early BASIC, on the 
other hand, will make decisions for us on the format of the numerical output. This is fine 
so long as we are happy with the decisions inherent in the structure of the language 
The example in Section 10 1 indicates one of the problems that arises. BASIC will print 
its output in scientific notation if the number is small (< O1) or very large (>= 
1,000,000,000) 

There is a related problem that affects not only the format but the meaning of our 
output. Suppose we were conducting an experiment in which we measure the speed of 
a moving object. Perhaps we have a timing gate that records the speed of a ball as it 
rolis past a point on an incline We repeat the experiment several times and obtain the 
results listed in Table 10.1. 


Table 107 


D anwannta 
ANG puute 


Measurements of the 


Speed of a Ball 
Trial Speed 
1 3.41 m/s 
2 3.42 m/s 
3 3.43 m/s 
4 3.41 m/s 


We compute the mean value for the four trials. If we do this on the computer we 
obtain an average speed of 3.4175 m/s. We have taken four numbers representing 
soeeds measured to the hundreaths of a meter per second. By averaging them we now 
have a velocity with four decimal places. This is wonderful We have increased the 
precision of our answer by averaging—or have we? As you may suspect, data 
ifaiipulation Oy usSéh Cannoli incrcasc ihc precision of mcasured results Thus, the 
number 3 4175 m/s could be misleading if reported as the average speed 

Scientists normally adhere to a set of rules that prescribe how many significant 
digits can appear in cajculated results that are based on experimental measurements. 
Significant digits but not additional digits are reported. In Table 10.1, there are three 
significant digits in the experimental data The average, if reported as calculated, 
shows five significant digits We typically keep as many significant digits in a calculated 
result as were available in the least precise measured value involved In averaging, 
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perhaps one more significant digit may be kept in the result. In any case we would not 
keep more than four significant digits in the number 3.4175. 

In summary, we often have probiems not only of fixing the number of decimal 
places in any answer-—which can be done easily enough using the INT function -—but 
of deciding how many digits (regardless of their relation to the decimal point) should 
appear in the answer 


FORCING SCIENTIFIC NOTATION 


We begin to deal with the problem of data format and significant digits by developing a 
program to place all numbers in scientific notation This program will also serve to 
illustrate how we may control the format of numerical data by treating numbers as 
strings. We express the program in pseudocode form first. (TRS-80 users may skip this 
explanation and Section 10 11 since the PRINT USING in Level Il BASIC will force 
scientific notation as well as the desired number of significant digits.) 


SCINOTATION: 

declare numeric NUM, P 

declare string NUM$, SNUM$, EX$ 

put (“ENTER NUMBER’) 

get (NUM$) 

set SNUM$ to the string value of NUM$ 

set NUM to the value of NUM$ 

set NUM to the string value of NUM (not redundant) 

if (NUM is in decimal range) 
[move the decimal point until one non-zero digit is to its left 
fix the exponential part of the number 
concatenate the number and exponential strings] 

put (“HERE IS THE NUMBER "’;SNUM$) 

put (IN SCIENTIFIC NOTATION: *';NUM§$) 

end. 


The statements associated with the single alternative decision structure require 
some refinement before they can be coded. In the first place, how can we determine if 
a number is in a certain range? Consider the following logical expression: 


(L — X) *(X —S)>=0 


lf X is between S (smallest value) and L (largest value) this condition evaluates as true. 
However, if X is outside this range the condition evaluates as false. You should 
convince yourself of this by trying values for L, S, and X. Since we know the range in 
which the computer maintains numbers in exponential form we need only replace L by 
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999999999 and S by 01 The logical expression then becomes: 
if (99999999 — ABS(NUM)) * (ABS(NUM) — .01)) >=0 


The next statement requires that we move the decimal point in NUM. Recall that in 
scientific notation only one nonzero digit appears left of the decimal point. We can do 
this by finding the range of the absolute value of NUM Consider the following code: 


220 LETM = 1. 

230 FORP = -2T0O8 

240 IF ABS(NUM) < .1 * M THEN 270 
250 LETM = M* 10 

260 NEXT P 

270 LET NUM = NUM * 100 /M 


The value of P becomes the exponent on 10 when the number is written in 
scientific notation Can you see why P ranges from —2 to 8? In the code we have 
chosen to work with powers of ten as whole numbers rather than in exponential form. 
This avoids minor errors, which creep in during exponentiation. 

Establishing the value of the exponent on 10 is now easy The following code 
should do the job: 


280 LET EX$ = '0" + STRS(ABS(P)) 
290 IF P > — 1 THEN EX$ = "E+" + EX$: GOTO 290 
300 LET EX$ = "E—"+ EX$ 


The "O" in statement 280 is to make the format of our exponent look like the 
computer's. Statements 290 and 300 make up a double alternative decision structure 
that determines the sign of the exponent based upon the value of P 

One other part of the program may need clarification. We are entering the 
number as a string rather than in its numerical form. This is necessary in order to retain 
the original form for comparison with the scientific notation form 

Here is the final program 


100 REM —~ SCIENTIFIC NOTATION 8/20/80 
110 REM INPUT VARIABLES: NUM$ 

120 REM LOCAL VARIABLES: P, EX$, NUM, M 
130 REM OUTPUT VARIABLES: SNUMS, NUNS 
140 PRINT ENTER NUMRER". 

150 INPUT NUM$ 

160 REM SAVE ORIGINAL ENTRY 

170 LET SNUM$ = NUMS 

180 LET NUM = VAL(NUM$S) 

185 LET NUM$ = STR$(NUM) 

190 REM IF NUMBER IS IN COMPUTER 

200 REM EXPONENTIAL RANGE, QUIT 


Ch. 10 


Sec 1017 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


Significant Digits 


IF (999999999 — ABS(NUM)) * (ABS(NUM) — .01) < O THEN 320 
LET M = 1 

FORP = —2TO8 

IF ABS(NUM) < .1 * M THEN 270 

LET M=M* 10 

NEXT P 

LET NUM = NUM * 100 /M 

LET EX$ = "0" + STRS(ABS(P)) 

IF P > —1 THEN EX$ = "E+" + EX$: GOTO 310 
LET EX$ = "E-—" + EX$ 

LET NUMS$ = STRS(NUM) + EX$ 

PRINT: PRINT 

PRINT "HERE IS THE NUMBER ";SNUMS$ 

PRINT "IN SCIENTIFIC NOTATION: ";NUM$ 
END 


10.11 SIGNIFICANT DIGITS 


Now that we can force any number into scientific notation the problem of printing a 
number with the correct significant digits is not so difficult. We need only operate on the 
base part of the number and not the exponent. We will first run the number through the 
processor, which converts it to scientific notation. Then we will strip off the base part of 
the number and round it to the correct number of significant digits. Minor problems of 
the difference between positive and negative numbers and the padding of zeros 
remain We illustrate one solution to this problem in the following program. 


100 
110 
120 
130 
140 
150 
155 
160 
165 
170 
180 
190 
195 
200 
210 


REM —-— SIGNIFICANT DIGITS 8-20-80 

REM INPUT VARIABLES: NUM$, SIGD 

REM LOCAL VARIABLES: P, EX$ 

REM OUTPUT VARIABLES: NUM$, SNUM§, SIGD 
REM PLACE NUMBER IN SCIENTIFIC NOTATION 
GOSUB 9500 

PRINT 

PRINT "NOW ENTER THE NUMBER OF SIGNIFICANT 
PRINT "DIGITS °; 

INPUT SIGD 

REM SEPARATE BASE AND EXPONENT 

LET NUM$ = MID$(NUM$§, 1,LEN(NUM$) — 4) 

LET EX$ = MIDS(NUMS§, LEN(NUM$S — 3,4) 

REM REDUCE TO SIGNIFICANT DIGITS 

LET NUM = VAL(NUM$) 
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220 LET NUM = INT(NUM * 10° (SIGD — 1) + .5) / 10° (SIGD — 1) 
230 LET NUM$ = STRS$(ABS(NUM)) 

240 REM £ADD SIGNIFICANT ZEROES AS NEEDED 

250 IF LEN(NUM$) > SIGD + 1 THEN 310 

260 IF SIGD = 1 THEN 310 

270 IF NUM = INT(NUM) THEN LET NUM$ = NUM$ + °." 

280 LET NUNS — NUMS + "O' 

290 IF LEN(NUMS) < SIGD + 1 THEN 280 

300 REM $CONCATENATE AND PRINT RESULTS 


310 IF NUM < 0 THEN LET NUM$ = "—" + NUM$ 
320 LET NUMS = NUMS + EX$ 
330 PRINT 


340 PRINT "THE INPUT NUMBER (‘;SNUM$;") WRITTEN IN’ 
350 PRINT ‘SCIENTIFIC NOTATION WITH ';SIGD 

360 PRINT "SIGNIFICANT DIGITS IS ";NUMS§;"." 

370 END 


REAL TIME DISPLAYS— 
FOR PETS ONLY 


The PET has an internal clock that can be used to evaluate equations in which the time 
variable appears explicitly. The ability to evaluate quantities such as speed and 
position and to display and update their values in real (actual) time may be useful in 
many applications 

The internal clock can be set to zero by the statement. 


LET TIS = "000000" 


From the instant this program statement is executed the clock runs using a basic 
unit of time equal to 1/60th of a second Tlis a variable in which the cumulative count 
of 60th's of seconds is kept. TIS is a variable in which the cumulative count of seconds 
is kept as a string variable. Both T! and T!$ are set to zero by the instruction above. 
Thus, when TI$ has the string value "000001", TI has the numerical value of sixty 

The internal clock is initialized to zero when the PE! is turned on. tf we want to 
know how long the computer has been turned on, we can enter the immediate 
command PRINT TI$. Unless the clock has been reset under program control, the 
string printed will indicate the number of seconds the computer has been on. 

Consider the following problem. An object falling in the gravitational field of the 
earth develops a downward velocity of V = 32? ft/sec where ft is elapsed time in 
seconds Its downward displacement is given by Y = i612 ft. These equations are 
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valid in the absence of air resistance Let us develop a program that will print out and 
update the velocity and position as the object falls Consider the following program 
fragment: 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


PRINT CHRS$(147): REM CLEAR SCREEN 
LET TI$ = "00000" 

PRINT "TIME',"VELOCITY',"DISPLACEMENT'" 
FOR I = 1TO 1000 

IF TI/60 <> INT(TI/60) THEN 200 

LET T1 = INT(TI/60) 

LET V=32*T1 

LETD=16*T1*T1 

PRINT "SQQQ': REM CURSOR CONTROL SYMBOLS 
PRINT T1,V,D 

NEXT | 

END 


Enter this program and observe the output. You should see time, velocity, and 
displacement updated each second for eighteen seconds. 


EXERCISE SET 10.5 


1 


Use the program on significant digits to output the results of the following 
calculations 


(a) 


(c) 


Calculate P to three significant digits when P = n*R*T/V. 


n = 3.50 
R = 8.314 
T = 293 
V = 0.165 


Calculate K to two significant digits when K = .5*m*v°2. 


m= 1.67E—27 
vV = 2.5E7 


Calculate r to two significant digits when r = (EO*h’2)/(pi*m*e°2). 


EO = 8.85E — 12 
h= 6.62E—34 


pi = 3.14 
m=9.1E—31 
= 1.6E-—19 


Develop a program that will output any number in scientific notation with only one 
significant digit. 
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3. Develop a program that will output any number in scientific notation with two 
significant digits. 


Review 


In this Chapter we have been concerned with methods of producing formatted and 
graphic output. The following terms and syntax are highlighted: 


PRINT IMAGE a string, including character information and formatted number 
images. The numbers are indicated symbolically while the character data appears 
explicitly in the image. (Section 10.3) 


TELETYPE GRAPHICS — graphic output produced by combinations of conventional 
symbols on a computer terminal (Section 10.4) 


LOW RESOLUTION GRAPHICS — graphic output produced by addressing printing 
positions or their subdivisions on the screen (Section 10 7) 


HIGH RESOLUTION GRAPHICS — graphic output in which each screen dot is 
addressable (Section 10.8) 


SIGANEICAMT DIGITS — digits retained in a number hecause they indicate the actual 
precision of the number. Computer generation of numbers often introduces digits which 
are not significant (Section 10.9) 


REAL TIME DISPLAYS  compuier output that is updated in actual time to indicate 
the correct value of some time-dependent variable or variables. (Section 10.12) 


Basic SYNTAX 


PRINT TAB() a combination of a command and a function that moves the printing 
position right on the current printing line The argument of the function specifies the 
number of right moves. Arguments can range from 1 to 255. (Section 10 2) 


ApPLE ONLY 
GP signifies entry into low resolution graphics mode. (Section 10 7) 
COLOR — #114 fo 18) designates color of image in low resolution granhics mode 


The COLOR statement is necessary even in black and white (Section 10.7) 


HLINX1,X2 AT Y draws a horizontal /ine at vertical position ¥Y extending from X1 to 
X2 in the horizontal direction. Syntax works in GR mode only (Section 10 7) 


VLINY7,Y1 ATX draws a horizontal line at horizontal position X extending from ¥1 
to ¥2 in the vertical direction. Syntax works in GR mode only. (Section 10.7) 
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HTAB X moves the printing position X units from the left margin at the current 
printing line. (Section 10.7) 


VTAB Y moves the printing position Y units down from the top of the screen. 
(Section 10.7) 


PLOT X,Y places a standard marker in position X,¥ on the screen. Syntax works in 
GR mode only. (Section 10 7) 


HGR _ signifies entry into high resolution graphics mode A four line text window is 
available in this mode. (Section 10.8) 


HGR2 _ signifies entry into high resolution graphics mode with expanded vertical 
plotting positions (192) and no text window (Section 10 8) 


HCOLOR = #(1to7) establishes color of image in high resolution graphics mode. 
(Section 10.8) 


HPLOT X,Y places a point in position X,¥ on the screen. Syntax works in HGR and 
HGR2 modes (Section 10 8) 


HPLOT X1,Y1TOX2,Y¥Y2 draws aline from X1,Y¥1 to X2,¥2 Syntax works in HGR 
and HGR2 modes. (Section 10 8) 


TRS-80 ONLY 


SET (X,Y) places a standard marker in position X,Y on the screen. (Section 10.7) 


PRINT @ X, (variable, expression, or string) — prints the value or string beginning 
in print position X. (Section 10.7) 


RESET (X,Y) changes status of standard marker at graphics position (X,¥) (Turns 
a brick on if itis off, or off if it is on). (Section 10.7) 


223 


11 


11.1 


11.2 


INTRODUCTION TO FILES 


In programming examples presented so far, we have confined ourselves to entering 
data from the keyboard or storing it within the program itself using DATA statements. 
While the latter technique is surely superior to the former, whenever more than a few 
data values are involved, this method its still clumsy when it comes to updating and 
sharing files and it also consumes valuable computer memory that might otherwise be 
available for additional program statements. This factor is particularly important when 
one is using a microcomputer with a small memory increment. 

BASIC syntax for file processing varies widely among computer systems. 
However, certain standard procedures must be taken on all such systems. In this 
chapter, we will first consider general concepts of file processing and, thereafter, take 
specific examples using the Apple, the PET, and the TRS-80 microcomputers. When 
we display BASIC syntax to accomplish file handling, we will use certain techniques that 
we have found to be effective with these machines without necessarily exhausting all 
possible methods of handling files. 


FILES GENERALLY 


A file is a collection of records with some type of logical organization. Each record in a 
file may contain one or more variables. Each record usually represents a specific case, 
often a person, about which or whom information is collected. For example, if a file 
contained information about the age, the sex and the residence of students, each 
record would contain attributes or variables which pertain to an individual student. We 
can call this a logical record because all the variables on the record are logically 
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related to each other, they pertain to the same person. It is also possible to have 
information for the same case or person on two or more adjacent records. For 
example, the Bureau of the Census collects such a large amount of information about 
geographic areas that several large records are required to hold all the information. In 
such a case, several physical records (a physical record is a record that is physically 
separated from other physical records) are required to contain a single logical record, 
that is, all the information that pertains to a single geographic area We will also see 
some examples in which it is desirable to deliberately choose separate physical 
records for logically related information 

The concept of a record may be more easily understood if we consider a record 
to be the equivalent of one line of output on the screen or printer More technically, a 
physical record is a collection of characters (numbers, letters, and/or special symbols) 
terminated by a carriage return. This is the definition for a physical record, which, in 
most cases, is also a logical record. However, there are cases in which one logical 
record is composed of more than one physical record and it is also possible for several 
logical records to be contained in the same physical record. We will consider some 
examples of the former, but not the latter in this chapter Generally speaking, physical 
records in the same file may be of varying lengths The end of the record is detected by 
the presence of a carriage return—ASCIl code 13. The Apple limits record size to 239 
characters and the PET limits record size to 80 characters 

There are lwo basic fille accessing methods sequential access and direct 
access (sometimes called random access) Sequential access simply means that 
records in a file must be accessed—that is, processed——in the order in which they 
occur in the file. Thus, if we wish to read the record for the tenth student in the file, we 
must first read and ignore the records for the first nine students Similarly, if there are 
200 records in a file, we cannot read the 200th record without first reading the 199 
records that precede it in the file. In contrast, random or direct access files allow us to 
read any record in a file directly without having to read those that precede it 

A useful analogy can be made between a sequential access file and a stack of 
file cards Let us imagine that we have a stack of three by five file cards each containing 
the name of a student and certain other pieces of information. If we were looking for 
card number twenty, we would begin by counting each card as we proceed through the 
deck until we arrived at card twenty and then presumably use the information on it A 
more realistic task would be io periorm the same type of search beginning wiih the top 
card and continuing until we found the card with the name of the student about which 
we were seeking information Social security numbers are also used for such 
identification purposes. in this case, we compare the name or social security number 
on each card with the name or social security number of the person whose card we are 
seeking We process a sequential access file in the same way—by looking at each 
record beginning with the first until we find the record containing the desired information 
or come to the end of the file. In the latter case, the file does not contain information 
about the desired person. 
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SEQUENTIAL DISK FILES 


Let us now consider an example of a sequential disk file using the Apple microcomput- 
er Developing the student information example mentioned in Section 11.2, let us 
suppose that we have a data set that looks like Table 11 1. 


Table 17 7 
Age, Sex, and Residence of Three Students 


Student Age Sex 


Jones 
Johnson 
Brown 


This data set can be easily transformed into a series of DATA statements: 


200 DATA JONES,21,M,NY 
202 DATA JOHNSON, 20,F,NJ 
204 DATA BROWN, 18,F,CT 


(It should be noted parenthetically, that most versions of BASIC should process the 
string values in the DATA statements correctly The PET, the TRS-80, and the Apple 
willdo so. However, some versions of BASIC require that the string values be inclosed 
within double quotation marks.) 

lf we add the following statements, we will have a short program that will read our 
data and print it on the screen in tabular form 


100 REM---STORE 6-15-80 

210 DATA *EOF*,0,*,* 

220 READ N$,A,SX$,ST$ 

320 IF N$ = "*EOF*" THEN 900 

330 PRINT TAB(1) N$; TAB(10)A;TAB(20)SX$; TAB(30)STS$ 
340 GOTO 220 

900 END 


Run the program to verify that it works as promised. 

Now let us modify this program so that it writes a copy of the data on the disk 
rather than on the screen. In addition to the actual write transactions with the disk file, 
our program must instruct the computer to do four other things. 

Open the file, 
Name the file, 
Specify the file to be a write only file, and 


- WO MO — 


Close the file after use. 
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These four messages must be transmitted by the program to the Apple’s disk 
operating system, which ts often called DOS for short. The vehicle whereby we send 
these messages to the DOS is the ordinary PRINT statement with one special feature 
added The DOS inspects every print line. When it finds a line beginning with a special 
marker (ASCIl code 4 that can be entered either as CHR9(4) or as CTRL/D), it treats 
that line as a DOS instruction, intercepts the line, which is never printed, and performs 
the specified instruction Thus, the PRINT statement with the CTRL/D on the front is 
the medium through which we send messages to DOS. The contents of these PRINT 
Statements are not printed. Here is the final product 


100 REM---STORE 6-15-80 
105 REM 

110 D$ = CHRS(4) 

115 PRINT D$"OPEN TESTDATA' 
120 PRINT D$'WRITE TESTDATA'" 
195 REM 

200 DATA JONES,21,M,NY 

202 DATA JOHNSON, 20,F,NJ 
204 DATA BROWN, 18,F,CT 

300 REM 

310 READ NS$,A,SX$,ST$ 

330 PRINT NS 

332 PRINTA 

334 PRINT SX$ 

336 PRINT STS 

338 IF N$ = "*EOF*' THEN 900 
340 GOTO 310 

900 PRINT D$"CLOSE' 


Upon comparison, this program is very much like the first version with the 
following exceptions 


1 Statement 110 stores the character representation of ASCIl code 4 in D$ 
2 Statement 115 tells DOS to OPEN a file to be known as "TESTDATA’ (If a 


data file with the same name is already present on the disk, it will be used and its 
conienis overwrilien. ii MO Such file Exists, DOS wih Create one.) 

3 Statement 120 tells DOS that the program will write to the file From the time 
that statement 120 is executed until the file is closed, all PRINT statements will 


cause information to be printed to the disk file rather than on the screen. 


4 Statement 900 tells DOS to close a// files currently open Since TESTDATA 
is the only file open, it will be closed when statement 900 is executed. If other files 
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were open and we wished to close TESTDATA only, the following modification 
should be used 


900 PRINT D$'CLOSE TESTDATA' 


One other important difference between this program and the first version 
concerns the print statements (lines 330 to 336). When we were printing data on the 
screen in the first program we used a single print statement with TAB instructions to 
obtain the desired columnar format. This approach is not appropriate to a disk file 
Often it does not work as expected, but even if it does, a considerable amount of disk 
space would be wasted. instead, in the second program, we have substituted four 
PRINT statements for the one previously used. Each PRINT statement writes one 
variable to the data file. Thus, each record in the file contains a single variable followed 
by a carriage return. Four physical records are required to make up one logical record. 
While it is possible to write more than one variable with the same print statement, 
computers vary in this regard and we recommend writing one variable per record which 
should be expected to work in all cases. 

Our program has produced a data set on the disketie that consists of sixteen 
physical records—each ending with a carriage return Each group of four physical 
records constitutes a logical record—with all values pertaining to the same student 
Following you will find a symbolic representation of the data set. As you will note, the file 
is no more than a collection of numbers—fifty-six numbers to be exact Each number ts 
an ASCII code that represents a numeric, alphabetic, or special character (See 
Appendix C for a listing of the ASCII coding system ) 


74 |79 |78 [69 |83 |13 [50 [49 |13 [77 |13 |78 [89 |13. 
Yio] N}e}s} | 2i a) [my [Nivi 


78 [83 |79 |78 [1350/48/13 |70|13|78 /74|13 | 
-YJO] HIN] S/OjN} | 2/0) | Fi [Ni ul 


66 [82 |79 [87 |78|13 |49 [56 [13 |70 13 67 |a4|13 | 
Bi Riojwin] [iia] [Fi] felt | 


42 [69 |79 [70 [42 |13 |48 |13|42|13|42|13 
*LefolFi +} fo} | *} | st | 


We have represented the file two ways’ as ASCII numeric codes and as their 
character translations. You will note that some of the boxes are empty They 
correspond to the carriage return code (ASCII 13) that has no graphic representation. 
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Recalling that physical records are defined as groups of symbols terminated by a 
carriage return, it is easy to recognize each physical record. Note that we have 
grouped physical records into logical records— each on a separate line. We have done 
so for the convenience of the reader but hasten to point out that this arrangement is 
unknown to our program and the computer To the Apple, the file is a single list of ASCII 
codes, some of which are recognized as record separators—the carriage returns 

Now let us address ourselves to the task of reading the same file and producing 
on the screen the same table of information with which we began. Our program will be 
quite similar to the STORE program except that it will read from the disk and print on 
the screen in contrast to the STORE routine that did the opposite. 

The program, called GET7, is displayed below. Note that statement 120 tells 
DOS that the program will read the file rather than write to it. No doubt you will also note 
that the program has only one INPUT statement in contrast to STORE (the program 
that created the file) that had four PRINT statements. The INPUT statement calls for 
values for each of four variables—and therefore will cause four separate records to be 
read from the disk file before it is satisfied Statement 320 tests for the end of file 
condition. 


100 REM -- GET7 6-15-80 

105 REM 

110 LET D$ = CHRS$(4) 

115 PRINT DS'OPEN TESTDATA' 

120 PRINT D$'"READ TESTDATA'" 

310 INPUT N$,A,SX$,ST$ 

320 IF N$ = "*EOF* THEN 900 

330 PRINT N$; TAB(10) A; TAB(20) SX$; TAB(30) STS 
340 GOTO 310 

900 PRINT D$'CLOSE TESTDATA' 


sometimes, we must write programs to read data sets that do not have dummy 
end of file markers When this is the case, we must resort to some other technique in 
order to avoid an error message and a premature halt to our program. The Apple has 
an error handling feature that allows our programs to control error processing if we 
wish to use it If we place the following statement in our program, control will pass to 
statement 900 if an error occurs’ 


125 ONERR GOTO 900 


More precisely, if an error is encountered during the execution of any statement after 
statement 125 is encountered, control will shift to statement 900. We can use such a 
statement to prevent program interruption as a result of the end of data on the disk file. 
Since it is our intention only to trap for one specific type of error, we must be able to 
separate disk end of file errors from other errors. We can do so by testing a memory 
location that contains an error code indicating which type of error has occurred. Apple 
error codes and their explanations are listed in Table 171 2. 
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Table 112 
Apple Error Codes 


Explanation 


NEXT without FOR 

disk is write protected 

out of data on disk data file 

file not found 

wrong volume 

(/O error 

disk full 

file locked 

bad file name or parameter 

no buffers available (too many files open) 

file type mismatch (you are probably trying to 
read a program as data) 

syntax 

RETURN without GOSUB 

out of data 

illegal quantity 

overflow 

out of memory 

undefined statement 

bad subscript 

redimensioned array 

division by zero 

type mismatch 

string too long 

formula too complex 

undefined function 

control/C interrupt attempted 


The Apple uses memory location 222 to store its error code. The contents of this 
location can be inspected by our program using the PEEK function which returns the 
contents of amemory location as a number Since we are looking for a particular error, 
we test for its value. If PEEK (222) = 5 then our program has come to the end of data 
on a disk file By incorporating such a test in a program, it can detect the end of file 
condition as illustrated in our next program. 

Following is another version of the GET routine called GET8 which is the same 
as GET7 except for the use of the Apple error handling technique to trap for the end of 
file condition. Statement 900 closes the file as usual, but statement 910 checks to see if 
the error was an end of file condition lf it was, then control passes to statement 999; 
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otherwise the block of statements 915-930 is executed. They create a simulated error 
message indicating the error code and the line in which it occurred. Statement 930 
rings the bell, or more precisely, causes the Apple to emit a bleep. 


100 REM---GET8 6-15-80 

105 REM 

110 LET D$ = CHRS(4) 

115 PRINT DS’OPEN TESTDATA' 

120 PRINT D$'READ TESTDATA'" 

125 ONERR GOTO 900 

310 INPUT N$,A,SX$,STS$ 

330 PRINT N$ TAB(10) A; TAB(20) SX$ TAB(30) ST$ 
340 GOTO 310 

890 REM 

900 PRINT D$'CLOSE TESTDATA' 

910 IF PEEK (222) = 5 THEN 999 

915 PRINT '***ERROR ": PEEK(222);" IN LINE 
920 PRINT PEEK (218) + PEEK (219)*256 
930 PRINT CHR3(7) 


999 CIND 


A common programming application using files is one in which information is 
entered from the keyboard for storage on disk. Here we will build a very simple payroll 
file on disk using information collected from the keyboard This would be a relatively 
simple application were it not for the fact that it is virtually impossible to carry out I/O 
transactions with the keyboard while a disk file is open. 

The Apple DOS maintains a file pointer that indicates the location to which the 
next character written to a sequential file will be stored With one exception, we cannot 
modify the value of that pointer When a program opens a sequential file with an OPEN 
command, the pointer is made to point to the beginning of the file. In contrast, when 
such a file is opened with the APPEND command, the file pointer is made to point to 
the position immediately following the location of the last character currently in the file. 
Thus, the APPEND command allows us to add records to the end of an existing file 

The BUILDFILE program, reproduced below, builds a simple payroll file. It does 
so by asking the user to input an employee’s name (IN$), hourly pay rate (R), and 
number of hours worked (4) in a givan weak After these three values have heen 
obtained from the keyboard, the disk file is opened, each value is written to the disk as 
a separate record, and the file closed. Because the APPEND command cannot be 
used to open a nonexistent file, the user is asked to indicate whether the file is new or 
old. If the user responds “‘Y’’, the OPEN command is used to open the file the first time 
and the APPEND command is used thereafter If the user responds that the file is not 
new, it is opened with the APPEND command and records are added to the existing 
file. Should a file already exist and the user nevertheless responds with ‘‘Y”’ indicating 
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that the file is new, it willbe opened with the OPEN command and its existing contents 


will be lost. 


Note the use of the string variable F$ to hold the file name and A$ to contain 
either the string ““OPEN”’ or “‘APPEND” as appropriate. 


100 
101 
102 
103 
104 
105 
110 
115 
120 
125 
126 
127 
130 
135 
140 
145 
150 
155 
190 
191 
192 
200 
205 
210 
215 
220 
225 
230 
250 
260 
270 
280 
290 
295 
300 
310 
400 
401 


REM -- BUILDFILE 11-22-81 
REM 

REM COLLECT INFORMATION 
REM AT KEYBOARD AND 

REM BUILD DISK FILE. 

REM 

D$ = CHRS$(4) 

ONERR GOTO 900 

HOME 


REM==== GET FILE SPECIFICATIONS ===-== 
REM 

PRINT "ENTER FILE NAME: '; 

INPUT FS 

PRINT ‘IS FILE NEW: 

INPUT R$ 

AS = "APPEND" 

IF LEFTS$(R$, 1) = "Y" THEN AS = "OPEN' 

REM 


REM 

PRINT "NAME: 

INPUT N$ 

IF N$ = "EOF" THEN END 
PRINT "HOURLY RATE: '; 
INPUT R 

PRINT ‘HOURS WORKED: 
INPUT H 

PRINT D$;A$;F$ 

PRINT D$;"WRITE';F$ 
PRINT NS& 

PRINT R 

PRINT H 

A$ = "APPEND" 

PRINT D$;"CLOSE';F$ 
GOTO 200 

REM 
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402 REW 

900 ERR = PEEK(222) 

910 IF ERR = 6 THEN PRINT "*** FILE NOT FOUND"; CHR$(7): END 
920 PRINT "*** ERROR ";ERR; CHRS(7) 


The use of the APPEND command makes it difficult if not impossible to use a 
dummy trailer record as an end of file marker because Such records would be written to 
the fille each time it is closed. As a result, there might easily be dozens of such records 
in a file. Therefore, we advise you to use the ONERR GOTO statement to test for the 
end of file condition as illustrated by the GETTEXT routine below GETTEXT can be 
used to read and display any text or dafia file. 


100 REM —- GETTEXT 

105 D$ = CHRS$(4) 

110 PRINT "ENTER FILE NAME: 
115 INPUT FS 

118 ONERR GOTO 200 

120 PRINT D$;'OPEN':F$ 

125 PRINT D$;"READ';F$ 

130 INPUT S$ 

135 PRINT s$ 

140 GOTO 1320 

200 PRINT D$;"CLOSE" 

210 ERR = PEEK(222) 

220 IF ERR — 5 THEN PRINT '<EOF>": END 
230 PRINT "ERROR "ERR; CHR$(7) 


Note how both programs use the ONERR GOTO statement and test the error code 
generating a pseudo-error message if that code is not the expected one. 


DIRECT ACCESS FILES 


Direct access files, sometimes called random access files, allow one to select and 
retrieve records from a file in any order without having to process those records which 
orocede them in the file. As already discussed, when we nrocess sequential files, we 
must process all records in the order in which they occur in the file Thus, if we desire to 
retrieve information from the twentieth record, we would have to retrieve and ignore the 
contents of the preceding nineteen records Direct access files allow us fo retrieve 
record twenty immediately, without processing the preceding records. In addition, we 
may read and write records to a direct access file in any order In contrast, writing a 
record to a sequential access file in effect destroys all subsequent records in that file 
Direct access files must be stored on disks—either the hard disks or the flexible, 
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floppy disks Our discussion here will be limited to direct access files on the Apple 
although such files can also be processed by the PET and the TRS-80 when they have 
disk drives attached 

The method of processing direct access files on the Apple is similar to the 
method for processing sequential access files. Like other files, direct access files must 
be opened before they can be processed Below is an open statement for a direct 
access file: 


100 PRINT DS'OPEN DATAFILE,L40" 


lt is similar to the open statement used for sequential files with the exception of the 
",;L40" at the end. This parameter indicates the length (that is, the maximum number of 
characters), of records in the file Thus, DATAFILE will have records with forty 
characters each If we wish to use a variable to indicate record length, the following 
statement will accomplish the same thing: 


100 L=40 
110 PRINT D$'OPEN DATAFILE,L'L 


(As in previous examples, the variable D$ contains the character representation of 
ASCIl code 4.) We must be careful to make a note of the length of the records in a file 
because we must supply the length in every program that uses the file. The Apple DOS 
does not know what the record length is and if we specify an incorrect length, our 
program will produce erroneous and possibly disastrous results. 

One additional caveat—our program should not attempt to read a record that 
has not yet been written. While this is a limitation, it is easily circumvented as we soon 
will see. 

In order to illustrate the use of direct or random access files, we will create a 
small file made up of forty records consisting of twenty characters each Our intention 
here is to store the names of United States Presidents in the order of their service in 
office. Thus, George Washington will be stored in the first record and Abraham Lincoln 
will be stored in the sixteenth record We will write a program which will both store and 
retrieve records from the file. 

Let us decide that our program will have three modules’ one called GET to 
retrieve records, another called PUT to write records to the file, and a main routine that 
will call PUT and GET as required and handle interaction with the user Schematically, 
our program looks something like this: 


MAIN 


GET PUT 
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A program having this structure, first presented in algorithmic language and then in 
BASIC follows. We will use the algorithmic specifications for subroutines already 
presented in Chapter 9. GET and PUT are subroutines that read or write records 
respectively. First, we introduce here a pseudocode OPEN statement that specifies the 
type of information needed for direct access I/O. Such a statement, like the one in the 
GET routine, indicates both the file name and certain file attributes. 


PSEUDOCODE RULE 15 


The OPEN statement provides a facility for opening files as well as 
expressing atiributes for the opened file. 


open “DATAFILE” (1,DA,IN,recordsize=20, filesize =40) 


Most of this information is easily understood on the basis of the foregoing 
discussion. 


open analgorithmic keyword. 

“DATAFILE”’ the actual name of the file 

1 a file identification number that is used in the GET and PUT 
statements. While 1 is not used in Apple syntax, the unit number is 
used on other microcomputers. It also provides for a method of 
distinguishing files when more than one file is in use 


DA indicates that the file is Direct Access. Use SA to indicate 
Sequential Access 

IN indicates that the file is to be opened for input. Use OUT for 
output. 

recordsize=20 indicates that each record in the file will have a 
capacity of twenty bytes. 


flesize=40 indicates the maximum number of records in the file. 
This parameter is not used in BASIC but is included here to provide 
documentation of an important file attribute. 


The algorithmic expression of file characteristics is, admittedly, somewhat 
arbitrary. You may choose a different mode of expression if you wish. Our advice is that 
you use one method consistently. Doing so will give you an unambiguous guide for 
program coding and debugging. You will note that the get and put statements include 
file and record identifiers The record identifier is required in direct access I/O. Thus, 
get 1:POINTER means ‘‘get from file one the record in the same relative position as the 
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value of POINTER.” Thus, if POINTER has the value 9, record number 9 is retrieved. So 
too with the put statement. 


ALGORITHMIC LANGUAGE VERSION 


MAIN: 
declare string PRESIDENT$, CHOICE$ 
declare numeric POINTER 
put (‘'*** PRESIDENTS ***"') 
loop 
put(‘‘SELECT: GET, PUT OR STOP (G/P/S)") 
get(CHOICE$) 
if( CHOICE$="'S"') break 
PUT (“WHICH RECORD”’) 
get(POINTER) 
if(CHOICES$ = ‘‘P’’) 
[ put(‘‘ENTER NAME OF PRESIDENT "',POINTER) 
get(PRESIDENT$) 
call PUT | 
else 
[ call GET 
put (“PRESIDENT # ”’ POINTER," IS ’ PRESIDENT$) 
end loop 
end. 


GET: 

open ‘'DATAFILE" (1,DA,IN,recordsize=20, filesize =40) 
get 1:POINTER (PRESIDENT$) 

close 

return 

end. 

PUT; 

open “DATAFILE” (1,DA,OUT ,recordsize=20, filesize=40) 
nut 17POINTER (PRESIDENT$) 

close 

return 

end. 


BASIC VERSION 


100 REM --- PRESIDENTS Vi 8-28-80 

1071 REM 

110 D$= CHRS$(4) 

115 HOME : HTAB(5) 

120 PRINT "*** PRESIDENTS * ERM 
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125 PRINT:PRINT 

200 PRINT "SELECT: GET, PUT OR STOP (G/P/S)': 
205 INPUT CHOICES 

210 IF CHOICES = "S' THEN 300 

215 PRINT "WHICH RECORD’: 

220 INPUT P 

225 IF CHOICES <> 'P" THEN 250 

230 PRINT "ENTER NAME OF PRESIDENT 'P 
235 INPUT PRESIDENTS 

240 GOSUB 950 

245 GOTO 260 

250 GOSUB 900 

255 PRINT "PRESIDENT " P_ {iS "PRESIDENTS 
260 GOTO 200 

300 END 

900 REM-----~----- GET RECORD 

905 PRINT D$'OPEN DATAFILE,L20" 

910 PRINT D$"READ DATAFILE,R';P 

915 INPUT PRESIDENTS 

920 PRINT DS$'CLOSE" 

$25 RETURN 

950 REM----~----- PUT RECORD 

955 PRINT D$"OPEN DATAFILE,L20" 

960 PRINT D$"WRITE DATAFILE,R';P 

965 PRINT PRESIDENTS 

970 PRINT D$'"CLOSE' 

975 RETURN 


Because of the basic design of the program, it is possible that the user might 
attempt to have the program retrieve and display a record that has not yet been 
created and thus, produce an error message and premature program termination. The 
best solution to this problem is to write a small program to initialize the file to be used by 
the PRESIDENTS program Such a program, which we will call SKELETON (because 


SKELETON is displayed below. It is quite simple. You will note that it processes the file 
sequentially by using a loop index to select records You will also note that S$ has 
been initialized to a string containing eight blanks, rather than the twenty you might 
have expected given the record length. In fact, t does not matter how many blanks we 
write in each record as long as the number does not exceed the record length. The 
DOS pads out all records on the right with blanks to achieve the desired effect After 
SKELETON is run, you can run PRESIDENTS without fear of errors caused by 
attempting to read nonexistent records 
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100 REM--SKELETON 9-2-80 
101 REM 

110 D$=CHRS(4) 

120 L= 20 

125 S$ =" 

150 PRINT D$'OPEN DATAFILE,L'L 
200 FORI=1TO 40 

210 PRINT D$'WRITE DATAFILE,R'! 
220 PRINT S$ 

250 NEXT | 

300 PRINT D$'CLOSE" 


EXERCISE SET 11.1 


1 


Write a program that will open a sequential file called RANDOM, generate ten 
random integers in the range from one to six, and store them in this file. 


Write a program that generates 100 random four letter words and stores them 
(four words to a record) in a sequential file called WORD See Chapter 8 for a 
program that generates random words. 


Write a program that will read and print to the screen every fourth record in a 
direct access file called TEST. Assume this file has forty records (each of length 
30) init You are to read records 4, 8, 12, etc. 


Identify any errors or omissions in the following program fragments. Assume the 
programs are to RUN properly with the statements shown Add or correct 
statements to obtain a program that will execute properly 


(a) 100 PRINT "OPEN FIRSTNAME' 
110 PRINT "READ FIRSTNAME' 
120 INPUTA 
130 IF A= 999 THEN 160 
140 PRINT A 
150 GOTO 120 
160 END 


(b) 100 PRINT D$ "OPEN TSTFILE1,L" 
110 PRINT D$ "WRITE TSTFILE1,R1’ 
120 PRINT "RECORD 1' 
130 PRINT D$ '"CLOSE' 
140 END 


Describe in words what the following programs accomplish: 
(a) 100 D$ = CHRS(4) 

110 PRINT D$ ‘OPEN DEMO" 

120 PRINT D$ "WRITE DEMO' 
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130 FORI=1TO 10 

140 X$ = "DEMO" + STRS(1) 
150 PRINT X$ 

160 NEXT | 

170 PRINT DS "CLOSE DEMO' 
180 END 


(b) 100 D$ = CHRS§(4) 
110 PRINT D$ "OPEN TRIAL, L40' 
120 FORI = 1 TO 20 
130 PRINT D$ "READ TRIAL, R'I 
140 INPUT T$ 
150 PRINT T$ 
160 NEXT | 
170 PRINT D$ "CLOSE" 
180 END 


6. Describe the makeup of the two files DEMO and TRIAL used in problem 5 
above Consider file type, number of records and record length in each file 


PET FILES 


In this section, we will treat sequential access files on the PET microcomputer using 
cassette tapes. From a functional standpoint, creating and using sequential access 
files with the PET is quite similar to processing such files using the Apple The major 
difference is in the syntax used to express the instructions. As with the Apple, a file 
must be: 


Opened, 
Named (optional on the PET), 
Declared either read or write, and 


hh wonro —- 


Closed after use. 


In order to read from, or write io a file, a programmer musi identify io the 
computer the file and the device upon which it resides This is true for microcomputers 
like the PET and the Apple and for large scale machines like the IBM 370 series. With 
the PET, we use the OPEN statement to accomplish this goal OPEN statements are 
found in many versions of BASIC and in other languages as well, on computers large 
and small, however the syntax we will demonstrate here is peculiar to the PET The 
OPEN statement allows us to select a file identification number and link it with a 
particular data set on a particular device and also to specify other attributes for the file. 
A typical OPEN statement might be: 


100 OPEN 1,1,0, "DATA' 
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PET Files 


As noted earlier, before a file can be used, it must be opened. Therefore, an 
OPEN statement must be placed in the program, logically, prior to the first attempt to 
read or write to the file. Similarly, a file must be closed when a program is finished with 
it. This is accomplished with a CLOSE statement which has the following syntax: 


400 CLOSE 1 


The CLOSE statement includes the number of the file being closed. Essentially, 
the CLOSE statement revokes the previous OPEN statement, disassociating the 
device and file from the file number specified in the OPEN statement thus making the 
file undefined. For this reason, OPEN and CLOSE statements are used in pairs as 
indicated below 


100 OPEN 1,1,0,'DATA'" 
Input transactions with fle # 1 


400 CLOSE 1 


BASIC is fussy about the use of these two statements; we cannot open a file that is 
currently open nor close a file that is currently closed. Attempts to do so will cause fatal 
errors that will interrupt program execution. 

Now let us consider the OPEN statement in greater detail 


100 OPEN 1,1,0,"DATASET 1?" 


ae Optional file name 


lf used, it will appear in the file header for the 
data set The name may have from one to 
128 characters init If a file name is not used, 
your program will attempt to read the first 
data set it finds on the cassette. 


Secondary adaress. 

An optional parameter with a numeric value 
from one to thirty-one. The meaning of these 
values is device dependent. If omitted, the 
default value of zero is assumed. The secon- 
dary address is discussed below. 


Device number 

This indicates the device upon which the file 
is located. The values are fixed and can be 
found in Table 11.2. 


' File number 
This value is selected by the programmer to 
identify the file in PRINT and INPUT state- 
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ments. Any number in the range from 1 to 
255 may be used. 


Table 17.2 
PET Devices 


Number Device 


Keyboard (default for input) 


Cassette # 1 
Cassette #2 
Video screen (output default) 


The third parameter in the OPEN statement, the zero in the following statement, 
100 OPEN 1,1,0,'DATA' 


is known to PET users aS a secondary address It is used to specify certain file 
attributes. A different set of values, and therefore, a different set of file attributes, apply 
to each type of device. The attribute options for the PET cassette files can be found in 
Table 11.3. 


Table 113 
File Attributes that Can Be Specified for the 
Secondary Address for PET Cassette Tapes 


Meaning 


Read only file. 

Write only file. 

Write only file with end of tape 
mark printed after end of file. 


The default option—zero, or read only—is in effect if we decline to specify a 
value for the secondary address. As you can tell trom looking over the list, a tape file 
cannot he simultaneously onen for both read and write operations While at first adlance 
this may seem to be unnecessarily restrictive, itis, in fact, quite logical and can prevent 
accidental disasters Were we able to open a file to be read and then write a record to 
that file, all the records beyond the point in the file at which the write occurred would be 
lost. 

lf it is necessary for a program to read a file and then rewrite the same file, we 
would accomplish the task by first opening the file as a read-only file, then reading all 
the desired records from the file Then, we would close the file, rewind the tape and 
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open the file again as a write-only file PET BASIC does not support such statements as 
RESTORE or RESET with relation to tape files. Attempts to read from a write-only file 
and write to a read-only file will produce fatal errors 

Combining the techniques discussed so far, we can use the following program 
fragment to open a tape file and read and print its contents on the screen. 


100 OPEN 1,1,0,"DATA" 
120 INPUT #1,X$ 

130 PRINT X$ 

140 GOTO 120 

150 CLOSE 1 


Note the presence of the file label (# 1) in the INPUT statement By writing 
120 INPUT #1,... 


we tell BASIC specifically which file we wish to read; namely, file #1, that has been 
defined already in the OPEN statement. When the file label, the #1", is omitted, 
BASIC assumes the keyboard for input and the screen for output. Note the comma that 
follows the file identification and precedes the variable list. Its absence will cause a 
syntax error message to be printed 

This program assumes that a file called “‘DATA”’ already exists on the cassette 
tape in tape drive one—the one that is mounted in the front panel of the older 
machines The program fragment, however, ignores the very important matter of 
detecting and handling the end of file condition, which we will discuss next. 

Usually our programs read data with an iNPUT or READ statement that is placed 
within some type of loop that is repeated until no more records remain to be read. We 
must aiso provide for a means to exit such a loop when the last record has been read 
Most computers will generate some type of error message if a program attempts to 
read beyond the end of a file. The PET may even crash if a program attempts to do 
so.* Because the PET is so sensitive to this problem, we must build into our program 
some protection that will prevent the error from occurring. 

If we know how many records are in a file, we could use a FOR-NEXT loop 
containing an INPUT statement to read the appropriate number of records. However, tt 
is generally better to let the computer do the counting Two options remain the first ts 
to write a trailer record containing dummy values at the end of the data set when tt is 
created, and the second option is to test for the end of file condition using the PET 
status word. 


* A computer is said to crash when its operating system (master controlling program) fails When 
the system crashes, the PET becomes inoperable None of the keys have any effect on what 
the machine is doing and the video dispiay may either freeze or become erratic The only 
recourse is to reset the machine by turning it off and then on again Of course, everything in the 
computer's memory is lost 
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Let us explore the second alternative first The PET monitors all input transac- 
tions with tape files and notes the status of these transactions in a variable known as 
the status word. The official variable name for the status word is ST We can test ST 
with IF ... THEN statements and print its contents as well. However, the PET protects 
itself from inadvertent modification of the status word by the user and issues a syntax 
error message whenever a program attempts to modify the contents of ST For 
example, a statement like this: ST=21 will cause a syntax error message to be printed. 
lf input transactions occur without detectable problems, the status word will have a 
value of zero. Once the end of a file has been encountered, the status word will have 
the value of sixty-four. Thus, we can add the following statement to our program 
fragment and test for the end of file condition. 


125 IF ST = 64 THEN 150 


It is important to note that the PET uses the same memory location (ST) to record the 
status of transactions for all fles Therefore, ST must be tested immediately after a 
transaction occurs with the particular file in which we are interested. It is a good rule to 
make the status word test in the statement immediately following the INPUT 
statement. 

The first option and more general approach to this problem is to write a dummy 
trailer record at the end of the data file when it's created, and then, make all programs 
reading the file test for the trailer record. Following you will find a simple program that 
accomplishes this task It assumes that the trailer record ‘‘EOF”’ is found at the end of 
the data set. 


100 REM-----GET 12-26-79 
120 OPEN 1,1,0,"DATA" 

130 INPUT #1, S$ 

140 IF S$ = "EOF" THEN 200 

150 PRINT S$ 

160 GOTO 130 

200 CLOSE 1 

205 END 


We include this section to deal with a peculiar fille processing problem which is common 
to early models of the 8K PET If you do not have such a machine you can skip this 
section While the software problem has been corrected in more recent machines, we 
include this section because there are thousands of such machines in existence and 
we hope that this section will help owners and users of such machines process files 
more easily. 
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What to do if the PET Crashes 


Because of a software error in the older PETs, the computer often crashes while 
reading data files from tapes This is a source of great frustration that causes many 
PET users to give up attempting to store data sets on tape. The system crashes occur 
because the PET fails to find one or more blocks of data on the tape; therefore, the 
PET reads past the end of file mark and crashes. While this problem manifests itself 
when a program is reading a data file from tape, the problem originates when the data 
file is being created. 

Those readers who are only interested in the solution of this problem may wish to 
skip this paragraph, which gives a mildly technical explanation of the problem When 
writing tape files, the PET does not actually read or write individual records Rather, tt 
accumulates records in a buffer, or temporary storage area, until the buffer is full, and 
then transmits the entire contents of the buffer to the tape file The contents of the 
buffer constitute a single block of data The PET writes not records, but blocks of 
records to the tape. Blocks have 192 characters of data (that is, the length of the buffer 
is 192 characters). One of these characters ts used to identify the type of block being 
written and the remaining 191 characters are actually data. Every data set on tape 
consists of a certain number of blocks of data The first block is called a file header 
block, which identifies the type of file including the data set name if one has been 
specified in the OPEN statement in the program that created the file This header block 
does not contain any of the data our program writes The last block in each file is a 
trailer block that contains an end of file mark All of the data written by our program will 
be found in blocks between the header and trailer blocks. All blocks are separated on 
tape by a blank space that is called an inter-record gap(iIRG) All the special problems 
in reading data files with the PET are attributable to the fact that the PET sometimes 
does not make the inter-record gap long enough to assure the detection of the 
beginning of the following data block. As a result, programs reading data sets 
sometimes miss one or more data blocks, which leads to a system crash Knowing the 
cause allows us to solve the problem by merely lengthening the inter-record gaps We 
can do this by telling the PET to turn on its cassette motor for a while after it writes each 
block of data A small subroutine to produce this result should be called after each 
PRINT statement which, writes to the tape file being created 

The subroutine below solves the PET file problem by putting more space 
between blocks of data on the tape as the data set is being created To accomplish 
this goal, we need to know when the PET writes a block of data to the tape. This can be 
determined by counting the characters being printed to the output tape file In order to 
facilitate the counting of characters being printed to the tape file, we must translate all 
information to be printed into strings using the STR$ function The string’s length can 
then be determined using the LEN function 


700 REM---CASSETTE DRIVE ROUTINE 
710 CH = CH + LEN(X$)-+ 1 

720 IF CH < 192 THEN RETURN 

730 POKE 59411,53 
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740 FOR JJ = 170 100: NEXT JJ 
750 POKE 59411,61 

760 CH=CH- 191 

770 RETURN 


Below is a small main program that causes the PET to generate fifty random 
numbers and then copy them to a tape file The main program calls the cassette drive 
routine that starts and stops the cassette motor when necessary to produce the longer 
inter-record gaps needed to assure that the PET will read each data block in the file 


100 REM--PUT 12-26-79 
105 POKE 243,122 : POKE 244,2 
110 OPEN 1,1,2,"DATA'" 

120 CH=O 

200 FORI= 1TO50 

210 XS = STRS(RNDM) 

220 PRINT #1, X$ 

230 GOSUB 700 

240 NEXT |! 

250 X$ = "EOF" 

255 PHINI #1, AS 

260 GOSUB 700 

270 CLOSE 1 

280 END 


Let uS examine each statement in the main program first. Statement 100 is a 
REM statement that identifies the program for the benefit of the humans who use it 
Statement 105 POKEs two values into memory to be sure that the PET knows where 
the cassette buffer begins in memory (This is a precaution to eliminate another cause 
of system crashes ) Statement 110 tells the PET to open a file for output on tape drive 
# 1, that the file will be referred to as file # 1, and indicates that the file will be named 
“DATA” Statement 120 initializes the variable CH at zero. This variable will be used to 
keep track of the number of characters in the PET’s tape buffer Statement 200 begins 
a FOR-NEXT loop that will be executed fifty times Statement 210 causes the PET to 
generate a random number that is immediately translated into a string and stored in X$. 
Statement 220 causes the value of X$ to be added to the buffer for cassette drive one. 
Tne loop cnas with a call to the cassette drive routine followed by the MEXT statement 
Once the loop has been executed fifty times, control passes to statement 250 that 
gives X§ the value “‘EOF”’ to be used as an end of file marker You can choose any 
such flag value you wish as long as it will not be confused with rea/ data * Statement 
255 causes the trailer value to be printed to the tape buffer The cassette drive routine 
is called a final time, the file is closed and the program ends. 


*We treat the use of trailer values above beginning in Section 4.6 
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The cassette drive routine, which is intended for general use in any program, 
begins with incrementing the variable CH by the number of characters in the record just 
printed to the tape buffer plus one The one is for the carriage return character that is 
also printed to the buffer If the buffer is not yet full, statement 720 returns control to the 
main program If the buffer is full, meaning that a block of data has just been written on 
the tape, control continues with statement 730, which turns on the drive motor by 
poking a value into the proper memory cell. Statement 740 contains a loop that merely 
stalls the program for about a sixth of a second which causes the PET to continue to 
write a blank inter-record gap onto the tape. Statement 750 turns off the tape drive 
motor Statement 760 deducts 191 from the count of characters currently in the 
buffer—the 191 characters just transferred to tape. Statement 770 returns control to 
the main program * 

A second version of the GET program is listed below. Itis essentially the same as 
the earlier version with the addition of a status word test after each input statement. If 
the status word is found to have a value other than zero, some type of error has 
occurred and control shifts to statement 200, which begins a loop to print as 
characters the current contents of the tape buffer It should be noted that nonprinting 
characters seem to be blanks. You may wish to remove the reference to the CHR$ 
function in statement 220 so that the program will print the ASCII codes that are actually 
stored in the buffer The type of approach represented by this program is 
recommended whenever you have problems reading a data file It should prevent 
system crashes and help you determine the nature of the problem 


100 REM---GET V2 12-26-79 
110 C=0 

120 OPEN 1,1,0,"DATA" 

140 INPUT #1, X$ 

145 iF ST <> 0 THEN 200 

150 IF X$ = "EOF" THEN 250 

160 C=C +1 

170 PRINT C,x$ 

180 GOTO 140 

200 PRINT "STATUS CODE IS ":ST 
210 FOR! = 634 TO 825 

220 PRINT CHRS$(PEEK(I)); 


*The problem treated here has been corrected in newer machines Our treatment here has been 
assisted by an article ‘Personal Electronic Transactions", in Creative Computing (April 1979, 
pages 28-32) by Gregory Yob and a brief mention in the Commodore PET Users Club 
Newsletter (Volume |, issue 3, page 17) Mr Yob writes a reqular column in Creative Computing 
concerning the PET Similar articles appear monthly on the Apple and the TRS-80 Such 
articles, and similar ones in other computing magazines are a valuable source of information for 
owners and users of microcomputers 
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230 NEXT I 
250 PRINT C;"RECORDS READ FROM TAPE" 


PET FILE APPLICATIONS 


In Section 11.3 we presented a program called STORE, that created a sequential file 
containing student demographic information and a second program called GET7, that 
retrieved the file and displayed the information in tabular form on the screen. Here we 
present without further explanation the PET versions of these two programs They use 
the error handling techniques we recommend for PET tape data files 


100 REM---PETSTORE 9-9-80 
101 PER 

105 POKE 243,122 : POKE 244,2 
110 OPEN 1,1,1, "TESTDATA' 
115 CH=0 

200 DATA JONES,21,M,NY 

202 DATA JOHNSOW,Z0,F,NS 
204 DATA BROWN, 18,F,CT 

210 DATA EOF,O,*,* 

300 REM 

310 READ N§S, A, SX$, ST$ 

312 X$ = N$ 

314 PRINT #1,X$ 

316 GOSUB 700 

318 X$ = STR$ (A) 

320 PRINT #1, X$ 

322 GOSUB 700 

324 X$ = SX$ 

326 PRINT X$ 

328 GOSUB 700 

33sec X$=ST$ 

332 PRINT #1, X$ 

334 GOSUB 700 

338 IF N$ = '"*EOF*' THEN 900 
340 GOTO 310 

699 REM 

700 REM---CASSETTE DRIVE ROUTINE 
701 REM 

710 CH = CH + LEN(X$)+1 
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720 
730 
740 
750 
760 
770 
800 
900 
999 


100 
101 
115 
300 
310 
320 
330 
340 
350 
900 
999 


TRS-80 Tape File Applications 


IF CH < 192 THEN RETURN 
POKE 59411,53 

FOR JJ=1 TO 100: NEXT JJ 
POKE 59411,61 

CH = CH — 191 

RETURN 

REM 

CLOSE 1 

END 


REM---PETGET? 9-9-80 
REM 

OPEN 1,1,0, "TESTDATA' 
REM 

INPUT #1, NS,A,SX$,ST$ 

IF N$ = "*EOF*" THEN 900 
PRINT N$; TAB(10) A; TAB(20) SX$; TAB(39) STS 
GOTO 310 

REM 

CLOSE 1 

END 


11.8 TRS-80 TAPE FILE APPLICATIONS 


Most of what we have said on files generally, and about sequential files in particular, 
also applies to the TRS-80. Following, we present two simple programs that process 
TRS-80 tape files The first, called TRSSTORE (which should probably be called Radio 
Shack) writes a series of ten values to the tape file The second program, TRSRES- 
TORE, reads from tape and displays those values 


100 
110 
120 
130 


100 
110 
120 
130 
140 


REM -- TRSSTORE 
FORI= 1T0O10 

PRINT # | 
NEXT | 


REM -- TRSRESTORE 
FORI= 17010 
INPUT # X 
PRINT X 
NEXT | 
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Notice that neither a unit number nor a comma is required after the # symbol 
Furthermore, no open or close statements are used. Care should be taken to make 
sure that the TRS-80 does not attempt to read beyond the end of file. Such an error 
would require you to use the reset key to regain contro! of the machine. Here, we use 
the loop to make sure that only ten records are read. A trailer value, as demonstrated in 
Section 116, is an even better solution. 

While ihe TRS-80 is reading a jile, two stars appear in the upper lefthand corner 
of the screen The appearance of the left star indicates that a file has been 
encountered The right star blinks to indicate that a record has been read success- 
fully 


EXERCISE SET 11.2 


| Write a program that will generate 100 random integers in the range of from one 
to six and store them on tape Use the value 999 as an end of file marker 


2. Interpret the following statements relating to PET files 
(a) OPEN 2,1,0,"TEST' 
(b) OPEN 1,"NAME’ 
(c) OPEN 1,2, 1,"TRIAL' 
(d) OPEN 2,1,2 
3 Repeat problem 2 in Exercise Set 11 1 on the PET 


Review 
New terminology and BASIC syntax introduced in this Chapter are reviewed below 
FILE acollection of records with some type of logical organization (Section 11 1) 


LOGICAL RECORD = arecord in which all the variables are logically related in that 
they pertain to the same person or entity (Section 11 2) 


PHYSICAL RECORD = arecord thatis physically separated from other records. The 
physical separation is a carriage return (Section 11.2) 


SEQUENTIAL ACCESS a method of file access in which each record must be 
accessed in the order in which it occurs tn the file. (Section 11 2) 


DIRECT (RANDOM) ACCESS = amethod of file access that allows direct reading of 
a specific record in a file. (Section 11 2) 


DOS an abbreviation for disk operating system (Section 113) 


Review 


Basic SYNTAX-APPLE ONLY 


PRINT CHR$(4) “OPEN FILENAME”’ a BASIC statement that opens (or creates) 
a sequential fille named FILENAME. (Section 17 3) 


PRINT CHRS$(4) “WRITE FILENAME” a BASIC statement that declares filename 
as a write-only file From the time this statement is executed until the file is closed, all 
PRINT statements will be written to FILENAME rather than to the screen. (Section 
113) 


PRINT CHRS(4) “READ FILENAME” a BASIC statement that declares filename 
as a read-only file. From the time this statement is executed until the file is closed, all 
INPUT statements will obtain values from FILENAME rather than from the keyboard. 
(Section 11.3) 


PRINT CHRS(4) “CLOSE FILENAME” a BASIC statement that closes file FILE- 
NAME (Section 11.3) 


PRINT CHR$(4) “OPEN FILENAME,L#”’ a BASIC statement that opens a direct 
access file in which each record has a length given by # (Section 11 4) 


PRINT CHRS&$(4) “READ FILENAME,R#’’ a BASIC statement that directs that 
record # will be read from direct access file FILENAME. (Section 11.4) 


PRINT CHR$(4) ‘‘WRITE FILENAME,R#’’ a BASIC statement that directs that a 
new record # will be written to direct access file FILENAME. (Section 11 4) 


ONERR GOTO # BASIC keywords that send control to statement # upon 
detection of an error condition. (Section 11 3) 


Basic SYNTAX-PET ONLY 


OPEN #,#,#,“‘filename’”’ aBASIC statement that opens a cassette tape file. The 
three numbers determine file number, device number, and secondary address in that 
order. (Section 11.5) 


CLOSE# a BASIC keyword that closes the file wnose number follows the symbol 
# Example. 200 CLOSE# 2. (Section 11.5) 


PRINT# a keyword that directs writing to the file whose number follows Example 
100 PRINT# 2,A$. (Section 115) 


INPUT# a keyword that causes the next record to be retrieved from the file 
identified by the number follows the ''#'’ symbol and appropriate values to be stored in 
memory Example: 100 INPUT# 1,A$. (Section 11.5) 
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MODELS AND 
os DIMU LATIONS 


INTRODUCTION TO MODELS AND 
SIMULATIONS 


We will use the term model to indicate a mathematical representation of a real-world 
system or problem The use of the computer allows us to develop models that can 
represent the behavior of rather complex systems. Modeling can be thought of as a 
cyclic process in which one begins by formulating a real-world problem into precise 
mathematical language. We then allow the model to operate on input data and 
compare the output, which is interpreted back into real-world variables, with known 
results. If the agreement is poor, the model may be changed and the cycle repeated. 

It is sometimes difficult to distinguish problems of modeling from those of 
simulation The difference we will stress is that modeling focuses on the activities 
associated with the development of the model and verification of its validity. Modeling 
depends upon a comparison of model predictions with known results. Simulation uses 
the modet to deal with problems that cannot be performed due to constraints of time, 
feasibility, or complexity Obviously, some decisions about models have to be made 
before a simulation can begin. 

Webster's dictionary gives one definition of simulation as ‘‘the imitative represen- 
tation of the functioning of one system by means of the functioning of another,’’ for 
example, a computer simulation of an industrial process.* The validity of a simulation 
depends upon how closely the device is able to replicate the essentials of the system 
represented. For example, a computer does an excellent job of tossing coins. In a few 
seconds it can perform statistical experiments involving coin tosses that would take 


*Webster'’s New Collegiate Dictionary, (Springfield: G & C Merriam Co., 1979) p 1074. 
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12.2 


many hours if done by hand. However, the usual purpose of simulation is to conduct 
more complex operations that result in predictions about the future behavior of a 
system. Simulation is also used to conduct experiments that are not feasible in the 
laboratory because of hazards which they might impose. 

We begin the chapter with a consideration of two models that are particularly 
Suitable to computer solution Both models involve matrix manipulations, which are 
quite tedious if done by hand 


LEONTIEF MODEL OF AN ECONOMY 


We consider a model that utilizes arrays to develop the gross production rate of 
various commodities given the internal consumption of these commodities and the 
amount that is required for export This model is called the Leonttef mode! Discussion 
of this model can be found in several texts on finite mathematics * 

The Leontief model involves a so-called technological matrix for an economy 
Suppose we are dealing with five basic commodities—beef, grain, fertilizer, fuel, and 
transportation The technological matrix might look like this: 


TRANSPOR- 
BEEF GRAIN FERTILIZER FUEL TATION 
00 0 25 0.1 02 025 BEEF 
00 0.0 0.3 01 01 GRAIN 
T=] 02 0.0 0.0 0.1 0 1 FERTILIZER 
0.2 0.1 0.0 0.1 0.2 FUEL 
01 0.0 0.0 0.2 0.0 TRANSPORTATION 


The interpretation of the element in the beef row and grain column is that it 
requires 25 units of grain to produce one unit of beef. Note that it also takes 1 unit of 
fertilizer, 2 units of fuel, and 25 units of transportation. Other rows have similar 
interpretations. 

Next, define the array E io be tne net amount of each commodity to be 
exporied 

LetE =j2U00 300 O 2060 Oj 

That is, we want to export beef, grain, and fuel but not fertilizer or transportation 

To find the gross production required we must complete the following steps: 


*See for example. Laurence C Hoffman and Michael Orkin, Mathematics with Applications. 
(New York. McGraw-Hill, 1979) p 55 
William J Adams, Fundamentals of Mathematics for Business, Social, and Life Sciences. 
(Englewood Cliffs. Prentice-Hall, Inc , 1979) pp 154-156 
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Step 7? Subtract T from the identity matrix of the same size, as in the example 
below 


00 025 O01 02 025 
00 00 03 01 Q1 
02 02 00 01 OQ1 
02 01 00 Ot 02 
O01 00 00 02 00 


oo00o = 

COOoOC=-0 

oOo + © O&O 

O-000 

=-Ccoo0co 
| 


Step 2 Take the inverse of the result obtained in Step 1 


Step 3 Multiply — by the result in Step 2 to obtain a matrix G that represents 
the gross production of each quantity 


Consider the following main program. 


100 REM---LEONTIEF MODEL - 12/15/80 

110 REM INPUT VARIABLES: B(I,J) — TECH. MATRIX 
A(1,J) — EXPORT MATRIX 

115 REM LOCAL VARIABLES: A(1,l) — IDENTITY MATRIX 

120 REM OUTPUT VARIABLES: C(1,J) 

130 REM---—LOAD T AND THE IDENTITY MATRIX 

140 DIM A(5,5),B(5,5),C(5,5) 

150 FORI=1TO5 

160 FORJ=1TO5 

170 IF 1 = J THEN A(l,J) = 1: GOTO 190 

180 A(I,J) =O 

190 READ B(I,J) 

200 NEXT J 

210 NEXTI 

220 REM---CALL SUBTRACTION SUBROUTINE 

230 M=5:N=5 

240 GOSUB 8800 

250 REM---RENAME CASA 

260 FORI=1TO5 

270 FORJ=1TO5 

280 A(I,J) = C(I,J) 

290 NEXT J 

300 NEXT | 

310 REM---CALL INVERSION SUBROUTINE 

320 GOSUB 8400 

330 REM---RENAME C ASB 

340 FORI=1TO5 

350 FORJ=1T05 

360 B(I,J) = C(I,J) 
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370 NEXT J 

380 NEXT! 

390 REM---LOAD MATRIX A - NET PRODUCTION 
400 FORI = 1 TO 5: READ A(1,I): NEXT | 

410 REM-—--CALL MULTIPLICATION SUBROUTINE 
420 M=1:N=5:L=5 

430 GOSUB 8700 

440 REM---PRINT GROSS PRODUCTION MATRIX 
450 PRINT "GROSS PRODUCTION’ 

460 PRINT 

470 PRINT "BEEF", C( 1,1) 

480 PRINT "GRAIN", C(1,2) 

490 PRINT 'FERTILIZER’, C(1,3) 

500 PRINT "FUEL’, C(1,4) 

510 PRINT "TRANSPORT.", C(1,5) 

520 REN---DATA SET 

530 DATA O,.25,.1,.2,.25,0,0,.3,.1,.1,-2,0,0,.1,.1 
540 DATA.2,.1,0,.1,-2,.1,0,0,.2,0 

550 DATA 2000,500,0,2000,0 

5RQ REM—--FND MAIN PROGRAM 

570 GOTO 9999 


Note that the subroutines are not shown here. They may be found in the Library 
of Subroutines (Appendix B) The two changes in array names above are made to 
accommodate the names used in the subroutines. If this program were to be used 
regularly, one would probably change the subroutines to avoid these extra steps 

A run of this program shows the following: 


OPTION 1 = ADDITION (A + B) 
OPTION 2 = SUBTRACTION (A — B) 
ENTER THE OPTION NUMBER? 2 


GROSS PRODUCTION 


Breer 3056.25 
GRAIN 1613.96 
FERTILIZER 788.012 
FUEL 3543.95 


TRANSPORT. 1708.55 


The type of model used above is called predictive It allows us to predict what 
we must do to satisfy a prescribed set of conditions (export so much of each 
commodity) It is also deterministic in that it specifies the exact quantity of each 
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commodity needed in gross production. In Section 12.3 we will consider a model that is 
predictive but not deterministic 


MODEL OF A PASTURE ECOSYSTEM 


This model traces the movement of phosphorus through a pasture ecosystem 
consisting of soil, grass, and cattle. In this model we again use matrices to describe 
information about the system under investigation The model is based on certain 
statements about transition probabilites between parts of the ecosystem. Thus, 
although the model will provide predictions, those predictions will be probabilistic in 
nature. Consider the following matrix. 


SOIL GRASS CATTLE OUTSIDE 


SOIL 0.6 03 0.0 0 1 
GRASS 01 0.4 0.5 0.0 
CATTLE 075 0.0 0.2 005 
OUTSIDE | 00 00 0.0 10 


To interpret this matrix, the first row represents the probabilities that phosphorus 
in the soil will move to each of the parts of the system, to include leaving the system, in 
one unit of time. Suppose the time unit is one day Then after a day, a phosphorus 
molecule in the soil has a probability of .6 (60% chance) of staying there, a probability 
of 3 of going into the grass, and a probability of 1 of leaving the ecosystem. The 
probability of it moving to the cattle directly from the soil is zero Note that each row 
total is one. Why must this condition be satisfied? 

We might wish to know the following concerning this system 

1 The probability associated with a certain transition of the phosphorus after 

two or more time intervals (days in this case) 


2 The number of time intervals the phosphorus stays in each part of the 
ecosystem before tt leaves, given its starting location. 


The answers to these questions are available by manipulating all or parts of the 
array above Consider the first question. 

Successive powers of the matrix give the transition probabilities for two, three, 
four and so on, time intervals. We can write a simple main program that will invoke the 
matrix multiplication routine to solve this problem. 


100 REM---ECOSYSTEM TRANSITIONS-1/21/81 


110 REM INPUT VARIABLES: A(I,J)-TRANSITION MATRIX 
115 REM LOCAL VARIABLES: B(I,J)-POWER MATRIX 
120 REM OUTPUT VARIABLES: C(i,J)-POWER MATRIX 
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130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
32U 
330 
340 
350 
360 
370 
380 
390 
400 
410 


REM---REQUEST INPUT 

PRINT "FOR HOW MANY UNITS OF TIME WILL YOU" 
PRINT "RUN THE MODEL '; 

INPUT N 

REM---LOAD A AND B 

FORI=1TO4 

FORJ=1TO4 

READ A(i,J) 

B,J) = Ald) 

NEXT J 

NEXT | 

REM--—-CALL MATRIX MULTIPLICATION SUBROUTINE 
FORI=2 TON 

GOSUB 8700 

PRINT "TRANSITION PROBARILITIES AFTER ‘jl 
PRINT "UNITS OF TIME." 

PRINT 

FORJ=1TO4 

FORK=1TO4 

PRING TAB(T “K)INT(C(I,8)" 10°54 + 59/15" 
BiJ,K) = CCI,K) 

NEXT K 

PRINT 

NEXT J 

PRINT 

NEXT | 

REM---DATA SET 

DATA .6,.3,0,.1,.1,.4,.5,0,.75,.0,.2,.05,0,0,0, 1 
GOTO 9999 


of this program for N = 3 is shown below 


FOR HOW MANY UNITS OF TIME WILL YOU 
RUN THE MODEL ?3 


TRANSITION PRUBABILINICS ArTren Zz 
UNITS OF TIME 
.39 3 ~15 -16 
475 .19 3 .035 
.6 225 .04 .135 


0 0 0 1 
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TRANSITION PROBABILITIES AFTER 3 
UNITS OF TIME 


3/65 237 .18 .2065 
.529 2185 .155 0975 
4125 27 -1205 197 
O 0) 0 1 


As an example of how these matrices are read we would say that a phosphorus 
molecule that originates in the cattle will have a 19.7% chance of being out of the 
ecosystem in three days. You should note the behavior of the probabilities in the last 
column in the matrices above 

To answer the second question, we need to rearrange the matrix a bit First we 
separate all states of the system that are absorbing. An absorbing state is easily 
recognized as one from which the molecule cannot escape. Each absorbing state has 
a single entry in its row in which the number one appears. In this problem oufside is an 
absorbing state Rearrange the matrix to place absorbing state(s) in the upper left 
corner In our problem we would have. 


OUTSIDE SOIL GRASS CATTLE 


OUTSIDE [ 10 00 00 00 
SOIL 0 1 06 0.3 0.0 
GRASS 0.0 0.1 0.4 05 
CATTLE 005 Oo75 #00 02 


We now separate the original matrix into four parts: 
ABSORBING NONABSORBING 


ABSORBING 


0.0 00 00 


NONABSORBING 


The lower right three by three matrix has special significance If we give this 
matrix the same treatment given the technological matrix in the last section, (Subtract tt 
from the identity matrix and then find the inverse of the result) we will arrive at the 
following three by three array. 


8.64865 4 32433 2.7027 
8.1982 9.76577 3.60361 
8 10811 4.05406 3 78379 


The row sums for this array represent the answers to question 2. That is, the 
sums 
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8.64865 + 4.32433 + 27027 = 15.6 (SOIL ROW) 
81982 +4 5.76577 + 3.60361 = 17.6 (GRASS ROW) 
8.10811 + 4.05406 + 3.78379 = 16.0 (CATTLE ROW) 


represent days in the system before leaving. If the phosphorus started in the soil, it will 
take 15.6 days (on the average) to leave the ecosystem. 

We have given no justification for the matrix manipulations above. We would 
suggest reference to a text on discrete mathematics for the reader who is interested in 
pursuing this further. Roberts’ text deals with several matrix problems including the one 
above .* 


EXERCISE SET 12.1 


1. A food web can be modeled with a matrix. Consider the predator-prey 
relationships shown below. 


Titmice Spiders 


°—_——__—_—_———————¢ 


iw Inco 


ow Se. 


Mice 


Model this diagram with a square matrix in which each species is represented on 
both rows and columns A number one is placed in a predator row and prey 
column if it preys on the species in that column Your matrix should look like 


this. 

1 #2 3 4 5 6 
Wease 1 [O 1 1 ©0 0 of] 
Timice 2 [0 OO O 14 #14 0 
Mice = 3 | oO 0 O oO 1 1 
Spider 4 9 9 O OF 4 OF 
Insect 5 0 0 0 0 0 1 
Herb 6 0 0 O O O68 0 


(a) Form the second power of this matrix. You should find a matrix which 
identifies all the paths of length two between predator and prey 


*Fred S. Roberts, Discrete Mathematical Models with Applications to Social, Biological and 
Environmental Problems. (Englewood Cliffs. Prentice-Hall, Inc , 1976) pp.263-270 
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(6b) Form the third, fourth and fifth powers of this matrix. What interpretation can 
you give to each? 


2 Develop a program to take a general matrix and separate out the nonabsorbing 
states as explained in the pasture ecosystem problem in Section 123. That is, 
produce a smaller matrix in which the rows and columns containing the number 
one (an absorbing state) are removed. 


3 Consider the following transition matrix. 


State 1 2 3 4 


1 [04 0.2 02 0.2 
2 ),05 00 05 0.0 
3 | 0.25 0.25 0.4 01 
4 100 0.0 0.0 1.0 


Use the program above(ecosystem transitions) to predict the following. 
(a) The probability of transition from state 3 to 2 in three units of time. 
(b) The probability of transition from state 1 to state 4 in two units of time. 
4. Matrix models are frequently used to describe communication networks. A matrix 
of ones and zeros is formed in which a one is placed in each row and column of 


communicating states. In the model below states 1, 2, and 3 communicate 
directly and states 4 and 2 communicate directly 


state 
| 


Ooo — WwW 
ooo 


1 2 
Q 1 
2 1 0 
3 1 1 
4 0 1 


Write a program that will form powers of this matrix. Examine the second and 
third powers of this matrix and interpret their meaning. 


5 The row totals in any transition matrix such as that in problem 3 must total to one. 
Write a program that will read a general transition matrix from data lines and 
check that row totals meet this condition. The program should identify the 
location of any errors 


OKUN’S LAW SIMULATION 


simulation generally involves two processes with which the computer can help us One 
process is the generation of sample input data The second process is model testing 
using parameter variation and control. Tne capability of the computer to perform rapid 
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calculations allows us to run numerous tests on a model making changes in one or 
more parameters, which will affect the outcome In this section we develop a simulation 
of unemployment rates based on a model in which gross national product is a 
parameter 

Unemployment and approaches to its reduction were major concerns in the 1976 
presidential campaign. As a candidate, Jimmy Carter set as a goal the reduction of 
unemployment from 7 9 percent in October of 1976 to 3.0 percent by the end of what 
he hoped would be his first term in office. This goal was also found in the 
Humphrey-Hawkins Bill, which was debated in Congress in 1976 but not passed. Soon 
after entering office, Mr Carter modified his goal slightly and set as his target an 
unemployment rate of 475 percent by the start of 1981 By June of 1978, the 
unemployment raie had declined to 5.7 percent While the goal of reducing the 
unemployment rate is not controversial, achieving results is a difficult, complex, and 
slow process 

Professor Arthur Okun, an economist and former presidential advisor, has 
demonstrated the existence of a regular relationship between the unemployment rate 
and the rate of growth of the gross national product (GNP) of the country. He has 
expressed this relationship in an equation from which we can predict changes in the 
unemployment rate on the basis of change in the rate of growth in the GNP This 
equation will serve as the model on which our simulation will be built. We quote trom an 
article from the New York Times concerning Professor Okun’s theory ‘' for every one 
percentage point that real gross national product grows by beyond the four percent 
trend rate, unemployment drops by one-third of a percentage point.’’* 

We need to convert this relationship to computer code If we let U = 
unemployment rate and G = the GNP, then we may write 


LET U=U + (4 — G)* .33 


This expression is the heart of our simulation. It says that the new unemployment 
is obtained by taking the old unempioyment rate and incrementing it by one-third of the 
difference between 4% and the GNP growth rate. We can see that if G > 4 the 
increment is negative and the unemployment rate decreases. lf G < 4 then the 
unemployment rate goes up 

At this point we begin to think about how we might develop a program around this 
expression We consider these possibilities: 

1 Let the user specify individual GNP growth rates for each year of ine 

simulation. That is, treat G as a vector rather than a constant value. 


2 Enter information into the program on numbers of people in the work force so 
that the simulation may generate numbers of people unemployed This output 
may have more impact than a percentage figure 


*New York Times, July 2, 1975, p 48 
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3 Organize the output so that it is labeled by year and formatted for easy 
reading. 


Item 1 is taken care of with the following code: 


200 PRINT "OKUN’S LAW SIMULATION" 

205 PRINT 

210 PRINT ‘INPUT LABEL’; 

212 LET Y = 1978 

214 INPUT L$ 

216 PRINT ‘INPUT UNEMPLOYMENT RATE FOR ‘;Y 

218 INPUT U 

220 PRINT "YOU MAY USE A CONSTANT GNP GROWTH RATE’ 
222 PRINT ‘FOR THE ENTIRE TIME PERIOD OF THE" 

224 PRINT "SIMULATION OR SPECIFY DIFFERENT GROWTH 
226 PRINT "RATES FOR EACH YEAR.’ 

228 PRINT 

230 PRINT "ENTER NOW EITHER THE CONSTANT GNP" 
232 PRINT "GROWTH RATE FOR THE ENTIRE PERIOD,’ 
234 PRINT "OR ENTER A NEGATIVE NUMBER TO INDICATE" 
236 PRINT "YOUR INTENTION TO SPECIFY GNP GROWTH 
238 PRINT "RATES FOR INDIVIDUAL YEARS.'; 

240 INPUT G(1) 

242 IF G(1) > 0 THEN 300 

244 PRINT "YOU HAVE CHOSEN TO SPECIFY INDIVIDUAL" 
246 PRINT "GROWTH RATE FIGURES FOR EACH YEAR.’ 
248 PRINT "NOW ENTER ELEVEN VALUES -- ONE FOR" 
250 PRINT "EACH YEAR.’ 

252 PRINT 

254 FORI= 17011 

256 PRINT ‘FOR ‘;Y; 

258 INPUT G(I) 

260 LETY=Y+1 

262 NEXT | 

264 GOTO 330 

300 FORI = 1TO 10 

310 LET G(I+ 1) = G(1) 

320 NEXTI 

330 PRINT 

332 FORI=1T0O11 

334 READ C(I) 

336 NEXT | 


263 


264 Models and Simulations 


Note that we have loaded an array G with eleven values. In one case (loop from 
300 to 320) these values were generated from the initial value. In the other case, (loop 
from 254 to 262) they were input individually by the user 

To provide output on the number of unemployed (Item 2 above), note that actual 
data on the size of the workforce can be obtained from census data and projections 
based on this data. This census data on the size of the workforce follows. 


1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 


98.8 million 
100 2 million 
101 7 million 
103.1 million 
104 4 million 
105.8 million 
107 2 million 
108 6 million 
109.6 million 
140 7 million 
111 7 million 


This data will be included in the program on data lines and read into array C (See 
loop from 332 to 336 above ) 

Finally, we will format a heading and generate a table (Item 3 above) Consider 
the following code that will produce the essential data: 


342 
344 
346 
348 
350 
352 
354 
356 
358 


ws 


362 
364 


REM---PREPARE FOR PRINT USING SUBROUTINE 
LETN=4 

LET PUS -‘###HF #. #.# #.#" 
LET NP(1) = 1978 

LET NP(3) = U 

FORI=1TOi11 

LET NP(2) = G(I) 


LET NP(4) = Cif) * NP(3)/100 
GOSUB 8600 

Hee RSD RIISDY | fA PANY * 99 
iene BW BUH ERY ww Uy | lyr witiyy ed 
LET NP(1) = NP(1) + 1 

NEXT | 


The only problem that remains ts the matter of making informed decisions about 
input values for the simulation Since, according to Professor Okun, a reduction of the 
employment is contingent upon attaining a certain level of economic growth, we must 
first turn to the matter of projecting economic growth. Economic growth is commonly 
measured in terms of the growth of the GNP, the total value of all goods and services 
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provided in the United States in a given year The average growth rate for the GNP over 
the time period from 1946 to 1977 is 3.4 percent. Figures for individual years differ 
quite a bit from the average for the entire time period 

After studying past economic growth trends and projections of future growth, this 
simulation will allow us to make our own projections and observe their consequences 
Here is a sample run of the program. 


OKUN’S LAW SIMULATION 


INPUT LABEL? TEST RUN #1 

INPUT UNEMPLOYMENT RATE FOR 1978 ?5 
YOU MAY USE A CONSTANT GNP GROWTH RATE 
FOR THE ENTIRE TIME PERIOD OF THE 
SIMULATION OR SPECIFY DIFFERENT GROWTH 
RATES FOR EACH YEAR. 


ENTER NOW EITHER THE CONSTANT GNP 
GROWTH RATE FOR THE ENTIRE PERIOD, 

OR ENTER A NEGATIVE NUMBER TO INDICATE 
YOUR INTENTION TO SPECIFY GNP GROWTH 
RATES FOR INDIVIDUAL YEARS.? 3 


GNP UNEMPLOY- 
GROWTH MENT UNEMPLOYED 


YEAR RATE RATE PERSONS* 
1978 3.0 5.0 4.9 
1979 3.0 5.3 5.3 
1980 3.0 5.7 5.8 
1981 3.0 6.0 6.2 
1982 3.0 6.3 6.6 
1983 3.0 6.7 7.0 
1984 3.0 7.0 7.5 
1985 3.0 7.3 7.9 
1986 3.0 7.6 8.4 
1987 3.0 8.0 8.8 
1988 3.0 8.3 9.3 


Code to generate the table headings has not been shown 
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A GENETICS SIMULATION 


In this simulation, we illustrate the use of the random number generator to select 
outcomes of a process. We consider the particular trait of blossom color in a certain 
flower We observe that the flowers have either blue or white blossoms and we know 
that the blue characteristic is dominant over the white characteristic. The genetic 
makeup of the flowers is displayed in Figure 12.1. 

To simplify the problem we will assume that self-pollination occurs If the parent 
has two dominant genes then the offspring must have two dominant genes The same 
is true for two recessive genes. However, if the parent is hybrid, the offspring can be 
pure dominant, hybrid, or pure recessive. We will use random numbers to predict the 
result of this self-pollination. 

In this problem we allow the program user to fix the percentage of gene makeup 
in the parent population. We make a random selection of plants to be self-pollinated 
from this parent pollination Let R be the percentage of recessive (white) parents. H will 
be the percentage of hybrid (b/ue but mixed gene) parents. Then 100 - R - H will be the 
percentage of pure dominant (biue) parents Consider the following code: 


340 LET S = RND(1) 

350 IFS <R/ 100 THEN Q = 1: GOTO 400 

360 (iF S>(R + H) / 100 THEN Q@ = 3: GOTO 400 
370 LET S1 = INT(RND(1) * 2) 

380 LET S2 = INT(RND(1) * 2) 

390 LETQ=S$1+$2+1 

400 LET C(Q) = C(Q) + 1 


In line 340 we select the parent gene type. In line 350 we ask if we have selected 
a pure recessive (white) type. If so, we set Q = 1. Inline 360 we ask if we have selected 
a pure dominant (blue) type If so, we set Q = 3 In lines 370 and 380 we make 
selection of genes knowing that we are dealing with a hybrid cross. Line 390 
determines a Q of 1, 2, or 3 depending on the genetic type of the offspring. Finally, line 


Figure 12 1 
Genetic Makeup of Flowers 
Blue Flowers White Flowers 
Pure Dominant Hybrid Pure Recessive 
Biw 
Two dominant One dominant Both genes are 
blue genes. blue and one recessive. 


recessive white. 


Ch. 12 


Sec. 125 


A Genetics Simulation 


400 accumulates the total of each genetic type in array C using the method discussed 
in Section 7 5 
For this program to run correctly on the TRS-80 make the following changes. 


340 
350 
360 
370 
380 
390 


With 


LET S = RND(100) 

IF S < R THEN Q = 1: GOTO 400 

IF S>R + H THEN Q = 3: GOTO 400 
LET S1 = RND(2) 

LET S2 = RND(2) 
LETQ=S1+S2-1 


this code we can complete the entire simulation. The remainder of our 


program has to do with fixing parameters and printing the results 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
2/0 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


REM -—- POLLINATION 3/4/81 

REM INPUT VARIABLES: N, R, H 

REM LOCAL VARIABLES: I, $1, S2,Q 

REM $OUTPUT VARIABLES: C(3) 

DIM C(3) 

PRINT "THIS PROGRAM SIMULATES THE SELF-POLLINA-" 
PRINT ‘OF A POPULATION OF FLOWERS. GENOTYPES' 
PRINT "ARE PURE RECESSIVE, HYBRID, AND PURE" 
PRINT ‘DOMINANT.’ 

PRINT 

PRINT "HOW MANY SEEDS ARE TO BE POLLINATED '; 
INPUT N 

PRINT 

PRINT "WHAT PERCENT OF THE POPULATION IS' 
PRINT "PURE RECESSIVE '; 


INPUT R 

PRINT 

PRINT "WHAT PERCENT OF THE POPULATION IS " 

PRINT "HYBRID '; 

INPUT H 

PRINT 100 — R — H;" PERCENT OF THE POPULATION IS" 


PRINT "PURE DOMINANT." 

PRINT 

FORI= 1TON 

LET S = RND(1) 

IFS <R/ 100 THEN Q = 1: GOTO 400 

IF S > (R + H)/ 100 THEN Q = 3: GOTO 400 
LET S1 = INT(RND(1) * 2) 

LET S2 = INT(RND(1) * 2) 
LETQ=$1+$S2+1 

LET C(Q) = C(Q) + 1 
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410 NEXT I 
420 FORI=1TO3 
430 LET C(l) = INT(C(I) / N * 1000 + .5) / 10 


440 NEXT | 

450 PRINT "RESULTS OF ';N;" CROSSINGS:' 

460 PRINT 

470 PRINT "% RECESSIVE % HYBRID % DOMINANT" 
480 PRINT 


490 FORI=1TO3 

500 PRINT TAB(13 * 1 — 7)C(N); 
510 NEXT I 

520 END 


In the exercises you will be asked to run this program for various genetic 
makeups of the parent population. 


MONTE CARLO INVENTORY 
SIMULATION 


In this section we display a more complex simulation that involves Monte Carlo 
methods. These methods were introduced briefly in Chapter 6. This simulation involves 
the manipulation of two parameters as well as the generation of random input data 
The problem developed here has been suggested by Chou.* 

Imagine that a merchant is trying to determine an optimal inventory plan for a 
given product Factors affecting decisions concerning inventory might be. 

1 Costs for holding each product unit in inventory each day, 


2 Cost of placing an order, and 


3 Costin profits lost from failure to have an item in stock when demanded by a 
customer 


In addition to these costs, information concerning the need and availability of the 
product must be known if the simulation is to be meaningful. Suppose the merchant 
Knows that he gets from zero to ten customers for the item each day with 
annroximately equal nrohahility Furthermore, he knows that the delay in receiving an 
order varies from one to four days with equal probability. In the experiment the data on 
sales and delivery time will be generated using the random function The other 
parameters may be varied to determine optimum values of minimum inventory and 
reorder quantity. 

We begin the simulation each day (DAY) by adding merchandise received to the 
inventory To determine if an order is received we need to have declared a day on 


*Ya-Lun Chou, Statistical Analysis. (New York: Holt, Rinehart and Winston, 1975) pp.800-804 
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which the order was placed (ODAY). On that day the random number generator would 
have determined the waiting time (WT) We also need to have declared the inventory 
(INV) and the size of the reorder (SHIP) With these variables declared we can write: 


if (DAY = ODAY + WT) 
[increase INV by SHIP 
WT <— 0] 


The next adjustment to inventory to be made is for daily sales Daily sales (CUST) 
are determined by the random number generator 


CUST «— RND(0— 10) 
decrease INV by CUST 


At this point we determine if we are at or below the reorder point. If we are, and if 
an order is not pending, an order is initiated. This can be done as follows: 


if (INV <= MININV) 
(if (DAY >= ODAY + WT) 
increase TFEE by FEE 
WT «— RND(1—4) 
ODAY <— DAY]] 


Here FEE is a single reorder cost and TFEE is the accumulation of these costs 
Next we determine losses incurred by our inability to provide for ail customers 
This situation will prevail if the adjusted inventory is negative. 


if (INV <= 0) 
[increase TLOSS by LOSS * ABS(INV) 
increase SALES by INV 
set INV to O} 


LOSS is the loss of profits due to lack of availability of the item. TLOSS is an 
accumulation of that loss and SALES is an accumulator for total items sold. The step 
“increase SALES by INV" may not be clear Note that in this case the inventory ts 
negative We will later make an adjustment to increase sales by the number of 
customers. However, that adjustment will be excessive if all customers have not been 
supplied. 

Finally, we compute total storage costs (TSC) by adding unit storage costs 
(UNITSC) for the inventory held over Then total sales are accumulated. 


increase TSC by UNITSC * INV 
increase SALES by CUST 


Having refined these steps we may write and code the entire algorithm. A 
complete program is given below 


100 REM -—- INVENTORY 10/15/80 
110 REM ~~ INPUT VARIABLES: MININV, SHIP, UNITSC 
120 REM FEE, LOSS, NDAYS 
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130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
336 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


REM LOCAL VARIABLES: ODAY 
REM OUTPUT VARIABLES: SVINV, CUST, TSC, TFEE 


REM TLOSS, WT, SALES, INV 
REM AVECST 
HOME 


TSC = O:TFEE = O:TLOSS = O:SALES = 0 
ODAY = O:WT =O 
PRINT "THIS PROGRAM DEVELOPS AVERAGE INVENTORY’ 
PRINT "COSTS PER UNIT SALE BASED ON A MONTE" 
PRINT "CARLO SIMULATION. REORDER TIMES OF" 
PRINT "FROM 1 TO 4 DAYS AND CUSTOMER COUNTS’ 
PRINT 'FROM O TO 10 ARE SIMULATED.’ 
PRINT 
PRINT "ENTER MINIMUM INVENTORY '; 
INPUT RAININY 
PRINT "ENTER SIZE OF REORDER 
INPUT SHIP 
PRINT "ENTER UNIT STORAGE COST '; 
INPUT UNITSC 
PRINT "ENTER REORDER COST '; 
INPUT FEE 
PRINT "ENTER LOSS ON UNITS NOT SUPPLIED 
INPUT LOSS 
PRINT "ENTER NUMBER OF DAYS SIMULATION WILL RUN 
INPUT NDAYS 
PRINT 
PRINT "INV CUSTTSC TFEETLOSSWT SALES INV' 
INV = INT(MININV + SHIP / 2) 
FOR DAY = 1 TO NDAYS 
SVINV = INV 
IF DAY = ODAY + WT THEN INV = INV + SHIP:WT = 0 
CUST = INT(RND(1) * 11) 
INV = INV — CUST 
iF iNV > MININY THEN 550 
IF DAY < ODAY + WT THEN 510 
TFEE = TFEE + FEE 
T = INT(RND(1) * 4 + 7) 
ODAY = DAY 
IF INV >= O THEN 550 
TLOSS = TLOSS + LOSS * ABS(INV) 
SALES = SALES + INV 
INV =90 
TSC = TSC + UNITSC * INV 


Ch. 12 


Sec. 126 


Monte Carlo Inventory Simulation 


560 SALES = SALES + CUST 

570 PRINT SVINV;TAB(7)CUST;TAB(11)TSC;TAB(17)TFEE; 

580 PRINT TAB(22)TLOSS;TAB(28)WT;TAB(33)SALES;TAB(38)INV 
590 NEXT DAY 

600 TCST = TSC + TLOSS + TFEE 

610 AVECST = INT(TCSTS / SALES * 100 + .5) / 100 

620 PRINT 

630 PRINT "INVENTORY COST PER UNIT SALE EQUALS' 

640 PRINT" $'";AVECST 

650 END 


A run of this program follows: 


THIS PROGRAM DEVELOPS AVERAGE INVENTORY 
COSTS PER UNIT SALE BASED ON A MONTE 
CARLO SIMULATION. REORDER TIMES OF 

FROM 1 TO 4 DAYS AND CUSTOMER COUNTS 
FROM O TO 10 ARE SIMULATED. 


ENTER MINIMUM INVENTORY ?15 

ENTER SIZE OF REORDER ?715 

ENTER UNIT STORAGE COST ?2 

ENTER REORDER FEE ?30 

ENTER LOSS ON UNITS NOT SUPPLIED ?20 

ENTER NUMBER OF DAYS SIMULATION WILL RUN ?15 


INV CUST TSC TFEE TLOSS WT SALES INV 


22 7 30 30 0 3 v4 15 
15 6 48 30 0 3 13 9 
9 8 50 30 0 3 21 1 
1 5 72 60 0 1 26 11 
11 8 108 60 0 0 34 18 
18 4 136 90 0 2 38 14 
14 4 156 90 0 2 42 10 
10 3 200 90 O 0 45 22 
22 2 240 90 0 0 47 20 
20 7 266 120 0 4 54 13 
13 5 282 120 0 4 59 8 
8 5 288 120 0 4 64 3 
3 8 288 120 100 4 67 0 
O 7 304 #150 100 1 74 8 
8 8 334 180 100 1 82 15 


INVENTORY COST PER UNIT SALE EQUALS 
$7.49 
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EXERCISE SET 12.2 


1. 


Run the genetics simulation problem in Section 125 with the following mix of 
genetic makeups in the parent population: 


(a) A 50-50 mix of pure dominant and pure recessive parents. 
(b) A 100 percent hybrid parent population 
(c) A 50-50 mix of pure dominant and hybrid parents. 


Modify the genetic simulation program to allow for a random cross pollination of 
the parent population. You will need to select each parent randomly after 
deciding on the genetic makeup of the parent population. Then select the gene 
contribution from that parent if it is a hybrid. 


Develop a simulation for the total count obtained in the roll of a pair of dice. 
Accumulate the count of each of the eleven possible results for 10,000 rolls of 
the dice. From this experiment, what would you predict as the probability of 
getting a seven in a single roll of a pair of dice? 


Develop a simulation for the shuffling of a deck of fifty-two cards. One way to do 
this is to place the cards (represented by the numbers one through fifty-two) into 
an array Use the random number generator to select pairs of cards to be 
interchanged. 


Review 


There has been no new syntax introduced in this chapter New terms are summarized 


here. 


MODEL amathematical representation of a system. (Section 12. 1) 


SIMULATION = animitation of the behavior of a system through the manipulation of a 
model. (Section 12 1) 


PREDICTIVE MODEL = a model that predicts the time behavior of a system. Such a 
model may specify exact outcomes (a deterministic model) or probable outcomes (a 
probabilistic model). (Section 12.2) 
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ADVANCED 


COMPUTER MAPPING 


The high resolution graphics capacity of the Apple microcomputer, plus the increased 
availability of relatively low-cost printers that can put graphic images on paper, open 
the door to many interesting and useful graphics applications The relatively simple 
plotting syntax available in Applesoft is an additional encouragement to this line of 
activity. 

Figure 13.1 displays an outline map of the state of West Virginia and its fifty-five 
counties. With its highly irregular shape, if is a good example of the kind of precision 
graphing that one can do with the Apple The program that created this map is not 
particularly complex—although we admit that 506 data statements were required to 
supply the X-Y coordinates. Although this task is more boring than difficult, tt is still 
much easier than drawing such a map by hand. 

In this chapter we will present a detailed treatment of the techniques required to 
create such graphic images, to store them on disk and the process of printing them on 
paper We will also provide in an appendix (Section 13.9) information on the source of 
such data and its use As we pursue this subject, bear in mind that computer mapping is 
merely a special case of a larger phenomena, and that anything that can be 
represented by pairs of Cartesian coordinates can be displayed using such 
techniques. 

In Section 10.8 we introduced high resolution graphics techniques with the Apple 
Here we will assume that you are familiar with that material and will build upon it Let us 
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Figure 13.1 
Outline Map of West Virginia and its 55 
Counties Using 506 Coordinate Pairs 


look at Table 131, a set of coordinates for a single county—in this case Brooke 
County, West Virginia. 


Table 13 7 
Coordinates for Brooke County 


All coordinates have values in the range from 0 to 1000. The Apple has the capacity to 
store two high resolution graphics images in memory simultaneously It is common to 
describe these storage areas as pages of high resolution graphics storage. Recalling 
that each Apple high resolution graphics page has 280 horizontal positions (in a range 
from 0 to 279) and 192 vertical positions (in a range trom O to 191) we recognize the 
fact that all the X values are out of range. 

It is customary for the origin of an X-Y plot to be located in the lower left-hand 
corner Thus, one might expect that plotting the position 0,0 would place a dot in the 
lower left-hand corner of the screen In fact, these coordinates assume that the origin is 
in the upper left-hand corner While this is unusual, it is consistent with Applesoft BASIC 
which makes a similar assumption. Thus, we are only required to scale the coordinates 
to bring them within plotting range 
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Applesoft BASIC’s HPLOT command has three variations: 


1 HPLOT X,Y which plots a single dot at X,Y 


2 HPLOT TO X,Y which draws a line from the current plotting position to 
X,Y 

3. HPLOT X1,¥1 TO X2,¥2_ which draws a line between the two pairs of 
coordinates 


Here we will use the first two instructions. For each county we wish to draw, we use 
HPLOT X,Y with the first pair of values and HPLOT TO X,Y for the remaining pairs 
The main plotting loop will be: 


140 
145 
150 
155 
160 
165 


READ X,Y 
HPLOT FN S(X),FN S(Y) 
FORI=1TO4 

READ X,Y 

HPLOT TO FN S(X),FN S(Y) 
NEXT I 


since we have so few data pairs, we can count them and thus specify a loop 
count. With a larger data set it would probably be easier to use a pair of dummy values 
as trailer values You will note that X and Y values are scaled before they are plotted. 
The scaling occurs in a user-defined function. This then is the heart of the mapping 
routine Below we list the entire program. 


100 
105 
110 
175 
120 
125 
130 
135 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 


REM --— ONECOUNTY 3-20-81 

REM 

HOME 

INPUT "ENTER SCALE FACTOR AS A VALUE <.7 ";S 
DEF FN S(Z)=2Z*S 

HGR : HCOLOR = 3 

POKE — 16302,0 


READ X,Y 
HPLOT FN S(X), FN S(Y) 
FORI=1T04 

READ X,Y 

HPLOT TO FN S(X), FN S(Y) 
NEXT | 


GET R$: IF R$ <> CHR$(27) THEN 175 
TEXT 

DATA 362,106 

DATA 361,54 

DATA 343,52 
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200 DATA 334,99 
205 DATA 362, 106 


Several statements may require explanation. Statement 115 asks the user to 
enter a scale factor as a percentage—with 1 0 equalling 100 percent. Thus, if you wish 
to reduce the scale to one-half, you would enter .50 for fifty percent. The scale factor is 
used by the user defined function in line 120 io scale the X and Y values as they are 
passed to it. Statement 125 selects high resolution graphics page one and the POKE in 
statement 130 closes the text window usually available at the bottom of the screen so 
that we can see the bottom thirty-two lines of the graphics page. Statement 175 delays 
program execution to keep the plot visible for as long as you wish. It does so by 
GETting a character from the keyboard repeatedly until that character is the equivalent 
of ASCIl code 27, the escape key. Once you push the escape key, execution 
continues, statement 180 restores the text page to the screen and the program ends 

We suggest that you try this program several times using different scale factors. 
You will discover that 7 is about the largest scale factor you can use without going off 
the right side of the screen If you use a scaling factor that is too high, the Apple will 
bleep and print an ILLEGAL QUANTITY error message But since the Apple was 
displaying the graphics page when the error occurred, you will not see the error 
message You can restore the text page by typing TEXT followed by a carriage 
return 

You will note that increasing the scale factor not only makes the image larger, but 
also moves it away from the plot origin. This suggests that some additional processing 
of the data is required before plotting, something we will demonstrate in Section 13.2. 
Our treatment of the map creation process will take three steps which we will treat 
sequentially They are. 


Step 1 Creation of a map coordinates file, 
Step 2 Determining the median X and Y value, and 
Step 3 The actual process of drawing the map. 


CREATING A MAP COORDINATES FILE 


The most formidable aspect of such a mapping program is not the algorithm but the 
daia entry task. The West Virginia map, Figure 13 1, displayed in Section 13. 1 required 
506 pairs of coordinates. Entering the coordinates is also an important task because 
we are creating the data set from which our map will be drawn. Here we will illustrate 
our mapping technique using a much smaller data set to draw a county outline map of 
the state of Connecticut. We have segmented the process into three steps, the first of 
which is the creation of a map coordinates file To create such a file, we must first enter 
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Creating a Map Coordinates File 


at the keyboard all the required coordinates Each pair of coordinates becomes a 
separate data statement. Such a statement might look like this: 


200 DATA 4,23132,45433 


The first of the three values represents the county Each county must have a separate 
code number The other two values are the X and Y coordinates respectively. We have 
had to add the county code (which was not needed in the ONECOUNTY program) 
because we will need a way for the program to detect a change from one county to 
another 

Once all the coordinates have been entered, you will need to verify their accuracy 
by displaying them on the screen and checking them against the source document. 
When the verification process is complete, you will need a small program to read the 
values from the data statements and to write the values to a disk file Here we wil 
create a sequential data set on the Apple diskette At this point you may wish to review 
our treatment of Apple sequential files in Chapter 11 We will assurne that you are 
familiar with that material. This routine merely reads the values in the data set and 
writes them to the disk. You will note the three negative values at the end of the data 
set. They are used to indicate end of file These values are written to the disk file. Here 
is the complete program. 


100 REM -- BUILDCTMAP2 5-23-81 205 DATA 1,103,57 


101 REM 206 DATA 1,103,45 
102 REM 207 DATA 1,36,22 
110 DS$= CHR$ (4) 208 DATA 2,50,101 
115 F$= "CTMAPFILE# 2" 209 DATA 2,53,147 
120 PRINT DS'OPEN'F$ 210 DATA 2,108,148 
125 PRINT DS'WRITE'FS 211 DATA 2,123,140 
130 READ ID,X,Y 212 DATA 2,110,99 
135 PRINTID 213. DATA 2,76,80 
140 PRINTX 214 DATA 2,50,101 
145 PRINT Y 215 DATA3,103,45 
150 IFID>OTHEN 130 216 DATA3,103,58 
155 PRINT D$'CLOSE' 217 DATA3,76,80 
160 END 218 DATA3,111,99 
170 REM------~--------------- 219 DATA 3,142,92 


175 REM CONNECTICUT MAP #2 220 DATA 3,164,58 
180 REM 57 COORRDINATE PAIRS 221 DATA 3,124,52 


185 REM---~------------------- 222 DATA3,103,45 
200 DATA 1,36,22 223 DATA4,110,99 
201 DATA 1,27,34 224 DATA 4,123,140 
202 DATA 1,56,48 225 DATA 4,108,148 
203 DATA 1,47,59 226 DATA 4,131,148 


204 DATA 1,50,101 227 DATA 4,135,143 


a a | 


278 Advanced Graphic Techniques 


13.3 


228 DATA4,139,148 243 DATA6,181,96 
229 DATA4,166,148 244 DATA7,190,62 
230 DATA 4,181,96 245 DATA7,192,79 
231 DATA4,142,93 246 DATA7,171,95 
232 DATA4,110,99 247 DATA7,182,96 
233 DATA5,164,58 248 DATA7,203,111 
234 DATA5S,142,93 249 DATA7,253,103 
235 DATA5,170,95 250 DATA7,254,71 
236 DATA5,192,79 251 DATA7,190,62 
237 DATA5,189,62 252 DATA8,202,111 
238 DATA5,164,58 253 DATA 8,213,148 
239 DATAG,181,96 254 DATA 8,251,148 
240 DATAG,166,148 255 DATA 8,253,103 
241 DATA6,213,148 256 DATA 8,202,111 
242 DATAG,202,111 990 DATA —1,—1,—1 


By creating a map coordinates file, it will be possible for a number of programs to read 
the same file Creating this file also makes it possible to make the map drawing routine 
more general since the routine does not itself contain:coordinates: 


FINDING THE MIDRANGE 
OF THE COORDINATES 


The second step of our map creation process is determining the midrange of the X and 
Y coordinates. Since county coordinates come in so many different forms, we need a 
generalized technique for standardizing the coordinates so that they fit on the Apple 
graphics screen This task can be easily accomplished in a subroutine More 
specifically, our task is to standardize the coordinates in terms of the center of the 
plotting screen We can do so by finding the middle of the range of X coordinates and 
the middie of the range of Y coordinates. These midrange values will then be used to 
standardize the coordinates 

The first step in computing the midrange of the X and Y coordinates, is to find the 
minimum and maximum value of each set of coordinates. We presented a simple 
program fragment to find the largest value in an array in Section 9.4. Here we expand 
the same technique in order to find both the largest and the smallest value in each 
array. We begin by assuming that the first X value is both the largest and smallest value 
in the array. We make a similar assumption about the first Y coordinate While this 
assumption is not likely to be true, it does make the process simple. We next begin to 
pass through each array replacing the current largest and smallest value in each array 
as new values are encountered. We use X1 for the smallest X value and X9 for the 
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largest X value. This process is repeated with the Y values. Here is our subroutine. 


365 REM----------------------- 
370 REM MID-RANGE ROUTINE 
375 REM--~--------------------- 
380 X1 = X(1) 
385 X9 = X(1) 
390 Y1 = Y(1) 
395 Y9 = Y(1) 


400 FOR! = 2 TO MAX 

405 IF X(I) > X9 THEN X9 = X(I) 
410 IF Y(I) > Y9 THEN Y9 = Yl) 
415 IF X(l) < X1 THEN X1 = X(I) 
420 IF Y(l) < Y1 THEN Y1 = Y(J) 
425 NEXT I 

430 XM = (X9 + X1)/2 

435 YM = (Y9+ Y1)/2 

440 RETURN 


Once the loop has been completed, we have the largest and the smallest of the X 
and Y values, which are then used to compute the midrange value for each array We 
use XM and YM for the X and Y midrange values respectively Control then returns to 
the main program. 


13.4 DRAWING A MAP 


Drawing a multi-county map, the third step in our process of créating a computer 
graphics map, is quite similar to drawing a single county map except for the additional 
statements needed to handle the change from one county to another Our program 
must perform three basic tasks. It must: (1) read the coordinates and county 
identification codes from disk into arrays, (2) call the subroutine that finds the midrange 
of each set of coordinates, and (3) plot the coordinates. As in the ONECOUNTY 
routine, we must plot the first pair of coordinates for a given county using the HPLOT 
command and all subsequent pairs of coordinates for the same county using the 
HPLOT TO command. Thus, we must do something slightly different with the first pair 
of coordinates for each county. This is necessary because county coordinates usually 
come in alphabetical order, requiring our program to jump from the last coordinate of 
one county to the first coordinate of the next without drawing a fine. In order to detect 
the change from one county to another, our data set must contain a county 
identification code, which is unique for each county 
Our plotting algorithm can be represented in pseudocode as follows: 
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DRAWMAP- 
declare numeric ID(100),X{100), Y( 100) 
declare numeric LAG, YM,XM,HCOLOR,],MAX,S 
declare string C$ 
define function H(X) <—140 + (X — XM)*S 
define function V(Y) — 96 — (Y — YM) *S 
set LAG to 0 
setSto12 
loop while | goes from 1 to 100 
get(ID(1),X(1), ¥(1)) 
if (ID(l) < 0) break 
end loop 
set MAX tol — 1 
call MIDRANGE 
HGR2 
set HCOLOR to 3 
loop while | goes from 1 to MAX 
if(ID) <> LAG) 
[ HPLOT FN H(X(I)), FN V(Y(1)) 
LAG <— ID(I) | 
else 
HPLOT TO FN H(X(I)),FN V(Y(1)) 
end loop 
get(C$) until C$ = 
TEXT 
end 


o 


MIDRANGE: 
set X1 to X( 
set X9 to X( 
set Y1 to Y( 
set Y9 to Y(1) 
loop while | goes from 2 to MAX 
if (X(l) > X9) X9 = XI) 
i (Y(i) > ¥9) YS = VC) 
if (X(I) < X1) X1 = Xd) 
f(Y() < YI Y1 = Y() 
end loop 
XM <— (X9 + X1)/ 2 
YM <= (Y9 + Y1)/2 
return 
end 


1) 
1) 
1) 
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The algorithm consists of three parts The first loads the data into arrays, the second is 
the subroutine that computes the midrange of the coordinates, and the third part draws 
the map itself As in previous examples, our input is expressed in generic terms and 
does not identify the source of the data. You will note that we have incorporated into 
our algorithmic language without change the special plotting commands supported by 
Applesoft BASIC. This illustrates the type of flexibility that we recommended in Chapter 
3 inthe development of your own pseudocoding techniques. The heart of this algorithm 
is a double alternative dectsion structure with either the true task or the false task being 
executed depending upon the result of the test "“IF(ID(I) <> LAG)" 

Because the selection of the true or false task is dependent upon whether the 
current value of ID is the same as the previous value and since each execution of the 
INPUT or READ statement destroys the present contents of the variable and replaces 
it with a new value, we must save the old value of ID in another variable which we call 
LAG 

Two functions are critical to the algorithm. The first— FN H —the horizontal 
function, standardizes X coordinates in terms of the center of the graphics screen. The 
vertical function—FN V— performs a similar task with the Y coordinates. Each function 
uses the appropriate midrange value computed by the subroutine as discussed in 
Section 13 3 Both functions also use the scaling factor S to scale the coordinates You 
may have to experiment with S tn order to get the best value. The Y coordinates in the 
data set assume the origin of the plot to be in the lower left-hand corner of the screen 
Since the Apple assumes the origin to be in the upper left-hand corner, we use a minus 
sign in the vertical function If your image comes out upside down, change this sign to 
‘“4?" as follows 


define function V(Y) —- 96 + (Y — YM)*S 


lf your image comes out reversed, that is with the left-hand side of the image on the 
right-hand side of the screen, reverse the sign in the horizontal function. Better still, 
reverse the X and Y print statements in the BUILDMAP program The BASIC version of 
the program is presented below: 


100 REM --DRAWMAP 5-23-81 
105 REM 

110 REM 

115 HIMEM: 16383 

120 DIM 1D(100),X(100), ¥(100) 
125 D$ =CHRS(4) 


130 LAG =0 

135 REM-----------~----------- 
140 REM RUN PARAMETERS 
145 REM----------------------- 
150 S = 1.2 


155 FS = "CTMAPFILE# 2" 
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160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
250 
240 
245 
250 
255 
260 
265 
270 
275 
280 
285 
290 
295 
300 
305 
310 
315 
320 
325 
330 


REM----------------~------- 
REM LOAD ARRAYS 

REM FROM DISK 
REM------------------~~--- 
PRINT D$;'OPEN';F$ 


PRINT D$;"READ':F$ 
FORI=1TO 100 
INPUT ID(I),X(1),¥() 

IF ID(!) < O THEN 210 
NEXT | 
MAX =1— 1 
PRINT D$'CLOSE' 
GOSUB 365 


REM DRAW MAP 
REM-~--~-----~-+--~-~-~-~~--~- 
HGR2 : HCOLOR = 3 

DEF FN H(X) = 140 + (X — XM)*S 


—_ a a. 


VVYV 
340 
345 
350 
355 
360 


DEF FN V(Y) = 96 — (Y — YM)*S 
REM---------------------- 
REM LOOP 
REM--------~-------------- 
FOR! — 1TO MAX 

IF ID(I) = LAG THEN 325 
REM---------------------- 
REM NEW COUNTY 
REM---------------------- 

HPLOT FN H(X(I)),FN V(Y(1)) 

LAG = ID(I) 

GOTO 330 
REM--------------------~- 
REM SAME COUNTY 
REM----------------~----- 

HPLOT TO FN H(X(1)),FN V(Y(1)) 
NEXT | 
REM-------~--------------- 
REM END LOOP 
REM---------------------- 
GET C$: IF C$ <> CHR$(27) THEN 350 


TEXT 
END 
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365 
370 
375 
380 
385 
390 
395 
400 
405 
410 
415 
420 
425 
430 
435 
440 


REM--—--~-~—~-—--------------- 
REM MID-RANGE ROUTINE 


X1 = X(1) 

X9 = X(1) 

Y1 = ¥(1) 

Y9 = ¥(4) 

FOR I = 2 TO MAX 
IF X(1) > X9 THEN X9 = X(I) 
IF ¥(I) > Y9 THEN Y9 = Y(I) 
IF X(I) < X1 THEN X11 = X(I) 
IF Y(l) < Y1 THEN Y1 = Y(l) 

NEXT | 

XM = (X9 + X1) 7 2 

YM = (Y9+ Y1)/2 

RETURN 
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This is a rather straightforward implementation of the algorithm. Figures 13.2 and 13 3 
display two maps of the state of Connecticut. The map in Figure 13.2 was produced by 
this program using a data set containing fifty-seven pairs of coordinates and the map in 
Figure 13.3 was produced by the same program using a different data set that has 346 
coordinate pairs. Our reason for displaying the program here with the smaller data set 
is frankly to Save space. 

There are some applications in which Figure 13 2, the map with less detail, would 
be more desirable. For example, you may recall watching election night coverage on 


Figure 13 2 
Map of Connecticut and its 8 Counties 
Using 57 Coordinate Pairs 
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Figure 133 
Map of Connecticut and its 8 Counties 
Using 346 Coordinate Pairs 


one of the major networks Large maps indicating each state were used to indicate 
which presidential candidate the state supported. These maps did not display much 


state boundary detail. In this respect, the television map was quite similar to Figure 
12.2. 


SAVING GRAPHIC IMAGES ON DISK 


The Apple may require several minutes to draw complex graphic images. This may bea 
disadvantage in those circumstances in which you may wish to change graphic images 
quickly Fortunately, the Apple provides a means for saving a graphics image directly to 
the disk with a single command. 

To save such an image, you must first run the program that creates the graphic 
display Allow the program to create the image and end execution normally. Thereafter, 
enter one of the following commands 

If you used HGR2, enter the following command followed by a carriage return 


BSAVE image,A16384,L8192 


In place of image enter a legitimate DOS file name. Make sure the file name is not 
already in use. Note that the command is BSAYE—which means binary save—in 
contrast with the standard SAVE command. The two parameters following the file 
name indicate the memory Address at which the save process is to begin and the 
Length of the memory segment to be saved In this example, we have specified the 
beginning of the second page of high resolution graphics memory If the graphic image 
was created using the HGR command in the program, then use the following 
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BSAVE image,A8192,L8192. 
lf you enter a CATALOG commana, the following would be displayed 
B 034 IMAGE 


We assume the file is named IMAGE. You will note that thirty-four sectors of 
storage are required to store a single graphics image Since each sector holds 256 
characters, a total of 8704 characters of storage is required for each graphics image 


LOADING A GRAPHICS IMAGE 
FROM DISK 


Once saved, a graphics image can be loaded and displayed with a three statement 
program as follows: 


110 DS = CHRS$(4) 
115 HGR2 
120 PRINT D$'BLOAD IMAGE" 


We assume that the file IMAGE contains a graphics image. You will note that we 
omitted the Address and Length parameters used in the BSAVE command illustrated 
above. Since these values are saved along with the map image by the BSAVE 
command, we need not supply them again. 

The three line program given above Is the quickest way of loading and displaying 
a binary map image, but it may not be the best way You have no doubt noted how the 
image appears on the screen incrementally This gradual process can be replaced with 
an instant picture using the following program: 


100 REM -— DISPLAYMAP 5-15-81 

105 D$ = CHR§(4) 

110 HOME 

115 PRINT "WHEN MAP APPEARS, PUSH ESCAPE TO END.’ 
120 PRINT 

125 INPUT "WHICH MAP FILE: ;'M$ 

130 PRINT D$;"BLOAD';M$;',A16384" 

135 POKE — 16299,0 

140 POKE — 16297,0 

145 POKE — 16302,0 

150 POKE — 16304,0 

155 GET C$: IF C$ <> CHR$(27) THEN 155 
210 TEXT 

215 END 
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Statements 120 through 126 use the Apple’s so-called soft switches rather than 
the HGR commands. The effect of any one switch is partly dependent upon the setting 
of the others. You may wish to consult the Applesoft Reference Manual for a more 
detailed discussion Here we present a brief description of what each does: 


Statement 135° switches from page one high resolution graphics (beginning at 
8192) to page two (beginning at 16384) 
Statement 140 — selects high resolution graphics. 


statement 145 — selects full screen graphics rather than mixed graphics and 
text 


Statement 150 — switches from text to graphics 


This approach makes it relatively easy for us to load two map images and switch from 
one to the other Consider this modification of the program just presented. 


GG HERI-- BOUBLEMAP 4-6-3937 

101 REM 

105 DS = CHRS(4) 

110 PRINT D$"BLOAD CT MAP" 

115 PRINT D$'BLOAD WV MAP,A8 192" 

120 POKE — 16299,0 

122 POKE — 16297,0 

124 POKE — 16302,0 

126 POKE — 16304,0 

150 GET C$: IF C$ <> CHR$(27) THEN 150 
160 POKE — 16300,0 

170 GET C$: IF C$ <> CHRS$(27) THEN 170 
180 TEXT 

190 END 


Note that two map images were loaded one after the other For the Figure 13.3, 
we specified the location or address in memory into which the image was to be stored. 
This was necessary since the image was originally stored from page two of the high 
resolution graphics storage but, we wished to load it into page one. Statement 160 was 
added to swiich the display to page one of high resolution graphics from page two 


PRINTING GRAPHIC DISPLAYS 


A number of printers are available for use with the Apple, some of which can print high 
resolution graphics images as well as text. One such device is the Apple Silentype 
printer li ts a small and compact thermal printer that often is available with the Apple 


Ch. 13 


Sec 13.7 


Printing Graphic Displays 


Photo 13 1 
Apple Silentype Printer prints high resolution graphics with images as well as text. 
(Photo courtesy of Apple Computer Inc.) 


microcomputer Our treatment of printing graphics images here will be confined to the 
use of the Silentype We further assume that the controller board for the printer is in slot 
number one of the Apple's backplane 

A graphics image can be transferred to the printer by statements within a 
program or by commands entered at the keyboard Only two commands are 
required 


PR#1 
CTRL/Q 


Each command is typed at the keyboard and followed by a carriage return Should the 
orinter controller board be tn a slot other than one, substitute that number for the ''4”’ in 
PR#1 The CTRL/Q is entered by holding the control key down and then striking the 
Q. These commands will cause the Apple to print the image on high resolution graphics 
page one on the printer It will be printed white on black as the image appears on the 
screen You may POKE various locations to change these defaults as we will indicate 
in the following program 

Here we present a small program that loads a binary image from disk intd the 
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second high resolution graphics page. The statements down to number 155 should be 
familiar if you have read Section 13.6. Statement 160 initializes the printer The PRINT 
statement is essential for the correct initialization of the printer. The next three 
statements modify default printer characteristics. Statement 165 causes the printer to 
print the darkest possible image The values POKEd into this location can range from 
zero to seven with zero the lightest image and seven the darkest image. Statement 170 
selects the second high resolution graphics page for display, the one beginning at 
memory location 16384 A value of thirty-two, which is the default, causes page one to 
be printed and a value of sixiy-four causes page two to be selected. Statement 175 
causes the inverse image to be printed—that ts, it causes the image to be printed black 
on white, the opposite of the screen image. A value of 255 causes white on black 
printing and a value of zero causes black on white printing Statement 180 causes a 
CTRL/Q to be printed thus beginning the printing process. Statements 190 to 200 
merely restore the default values once the image has been printed. Statement 205 
turns off the printer {i is important to note that these POKE instructions will have an 
effect only if the printer is turned on ai the time. Remember that statement 160 turned 
on the printer 


100 REM -- PRINTMAP 5-15-81 


“ALF Nr@ rf 
DS — CHRSIA) 


110 HOME 
115 PRINT "WHEN MAP APPEARS, PUSH ESCAPE TO PRINT." 
120 PRINT 


125 INPUT "WHICH MAP FILE: ";M$ 

130 PRINT D$;'BLOAD";M$;',A16384" 

135 POKE — 16299,0 

140 POKE — 16297,0 

145 POKE — 16302,0 

150 POKE — 16304,0 

155 GET C$: IF C$ <> CHR$(27) THEN 155 

160 PR#1: PRINT 

165 POKE — 12528,7 : REM DARKEST IMAGE 
170 POKE — 12525.64 REM HRES PAGE 2 
175 POKE — 12525,0 REM PRINT INVERSE 
180 PRINT CHR$(17) 
185 Hew ----- RESTORE D 
190 POKE — 12528,5 

195 POKE — 12525,32 

200 POKE — 12524,255 
205 PR#0 

210 TEXT 

215 END 
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ADDING TEXT TO YOUR GRAPHICS 


We have already noted that the TRS-80 has the very convenient feature of allowing one 
to print character data along with a low resolution graphic image Printing character 
data with Apple high resoluton graphics is not quite so easy On the Apple, one can 
produce a shape table to represent the character or figure to be drawn Special 
commands can then be used to position the character or figure on the screen. 
Constructing the shape table is not an easy task The best solution is to borrow 
someone else’s shape table.* 

A technique we have used involves converting each figure to be printed into a 
character string. All characters are formed from a seven row by five column dot matrix 
For example, if we look closely at the letter S on the screen, we will see that it is formed 
of fifteen dots located in a seven by five array If we could code the information in that 
array in such a way that we could retrieve the illuminated dots, we could use the 
HPLOT commands to print the array and, thus, the character of interest. Consider the 
empty matrix in Figure 13.4 

In Figure 13.5 we will darken those squares that are illuminated in the letter 5S. 

Let us use a binary system to indicate whether the dot is illuminated or not 


Arranging the array for S in row order we find the following: 


01110 (first row) 
10001 (second row) 
10000 = (third row) 
01110 (fourth row) 


Q0001 = (fifth row) 
10001 (sixth row) 
01110 (seventh row) 


You should be able to see the letter S spelled out in 1s. We form these digits into 
a one-dimensional array by concatenating the seven rows in order 


S$ = "0111010001 100000 11100000 1 1000101110" 


*See, for example, an article in Creative Computing, entitled ‘Hi-Res Text for the Apple,” 
January 1981, by Paul Hitchcock, pages 126-129, Volume 7 
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Figure 13 4 
An Empty Matrix 


Figure 13 5 
The Letter S in a 7-Row by 5-Column Matrix 


We can print the letter in high resolution graphics using the following fragment. 


100 HGR:HCOLOR = 3 

110 S$ = "011101000 1 1000001 1 1000001 10001011 10" 
120 X= 10: ¥ = 10 

130 GOSUB 1000 

140 GOTO 9999 

1000 REM -- SUBROUTINE TO PLOT ARRAY 

1010 FORI=1T07 

1020 FORJ=1TO5 
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1060 
9999 
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IF MID$(S$,(I — 1) * 5 + J,1) ="1" THEN 
HPLOTX+J,Y+I 

NEXT J 

NEXT | 

RETURN 

END 


This fragment will produce the letter S in a matrix which has tts top-left corner at 
11,11 on the screen. Try it. 

It would be better yet if we could place this string in a random access file with a 
record number that corresponds to its place in the ASCIl coding system so that it can 
be retrieved in a systematic way. This can be easily done once we decide on the extent 
of our character set It is also important that we extract a continuous set of characters 
from the character set {no gaps allowed) For example, if we decide to have all the 
digits and the letters, our set must run from ASC(48) which corresponds to 0, to 
ASC(90) which corresponds to Z 

Assuming such a file is built, we can expand the program above to print any string 
of characters on the high resolution screen as follows 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


1000 


HGR: HCOLOR = 3 
D$ = CHRS(4) 
HOME: VTAB 22 
PRINT "ENTER CHARACTER STRING’; 
INPUT C$ 
PRINT ‘ENTER COORDINATES OF PRINT LOCATION' 
INPUT X,Y 
FOR K = 1 TOLEN(C$) 
PRINT D$;"OPEN HIRES,L36" 
C = ASC(MID$(C$,K,1)) — 47 
PRINT D$;"READ HIRES,R';C 
INPUT S$ 
GOSUB 1000 
PRINT D$;"CLOSE HIRES" 
X=X+7 
NEXT K 
GOTO 9999 
(add subroutine above) 


9999 END 


This program fragment provides for the entry of a character string and the 
selection of its printing location The string is then segmented and each character 
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Figure 13.6 
Graph Produced as Output by Combining 
Graphics and Characters 


mors 


ZI 


es at 


ANNUAL SALES 


identified with a record number in line 190. Tne character data is retrieved from ihe file 
in lines 200 and 210. Line 240 advances the printing position for printing the next 
character 

lt should be noted that this technique can be used to develop your own character 
set or special symbols and logos. The Subroutine Library {Appendix Bb, page 624), 
contains a program, which permits combining graphics and characters in a trial and 
error fashion. All the Apple characters are available in a supporting data file A sample 
of the output of this program (an annotated graph) is shown in Figure 13.6 


APPENDIX 


We are happy to acknowledge the assistance of Mr William Detweiler of the Office of 
Health Services Research of West Virginia University who provided the map coordi- 
nates for West Virginia and Connecticut as well as some good advice 

In preparation for the 1980 Census, the Bureau of the Census entered into 
agreements with most of the fifty states for the creation of State Data Centers within 
individual states io meei the need for the distribution of Census data. If you are 
interested in obtaining map coordinates for your state, you should contact the State 
Data Center in your state A reference librarian in a college or public library should be 
able to get the address of your state data center 

In this chapter, we have written as if there were but one set of coordinates for a 
given siate. The fact is, there are likely to be several sets of coordinates for any state. 
Map coordinates provided by the Bureau of the Census are very precise and take into 
consideration detailed boundary gyrations As a result, many pairs of coordinates are 
often required to draw each map. State Data Centers are likely to have alternative sets 
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of coordinates that sacrifice some boundary detail in order to obtain a smaller number 
of coordinates. These data sets are easier to work with and generally produce very 
good results. When you get a set of map coordinates you should determine the 
following before getting started: 


1 Do the coordinates assume the plot origin to be in the upper lefthand corner 
of the screen or the lower lefthand corner? Since the Apple assumes the plot 
origin to be in the upper lefthand corner, you will have to change the sign in the 
vertical function if the coordinates assume the opposite 


2 Some map coordinates may come with the vertical (Y) coordinate first, 
followed by the horizontal (Xx) coordinate. In such a case, you will have to 
transpose them as you enter them into the program or adjust the READ 
statement to read the Y coordinate first 


3 Use the HIMEM: command to protect your program from accidental 
catasirophe. This command specifies the highest memory location available to 
your BASIC program including variable storage space. When your Apple is 
powered up, Applesoft normally sets HIMEM: to the highest memory address 
available. But this exposes some of your program to the risk of destruction by 
execution of either HGR or HGR2 commands if the program is large enough to 
extend into the area used for storage of high resolution graphics Execution of 
these commands causes the graphics storage area to be cleared to blank 
perhaps destroying many statements Nothing can be more frustrating than to 
spend hours entering coordinates only to have such an accident destroy much of 
your work If you have a 32k or 48k machine, we recommend that you use the 
following: 


HGR2 
HIMEM: 16384 


lf you have a 16k machine, you will have to use 


HGR 
HIMEM: 8192 


The value assigned to HIMEM: is not modified by the following commands: CLEAR, RUN, 


NEW and DEL. Also please note that the colon is part of the name HIMEM:. You can cause the 
Apple to display the value of HIMEM: by entering the following: 


PRINT PEEK(116) * 256 + PEEK(115) 


The printed value is a decimal. 
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DATAFL 
BUBBLE 
MEDIAN 
SIGMA 
XYSORT 
YXSORT 
PMCORR 
MATADD 
MATMUL 
MATINV 
SCIENTNOT 
SIGNIFDIGIT 


PRINT USING 
CHARGEN 


C ASCII CODES 


D THE EDITOR AND CROSS-REFERENCE 
TABLE GENERATOR 


ALGORITHMIC LANGUAGE 
SUMMARY 


VARIABLE DECLARATION 


PURPOSE: _ to provide a means for the declaration of size and type of variables and 
arrays There are two variable types: numeric and string. Only arrays have size 
declarations. 

EXAMPLES 


declare numeric X,Y,ALPHA, TABLE(20) 
declare string NAME$ 
declare string LABELS$(20) 


GENERIC INPUT STATEMENT 


PURPOSE: to retrieve values for variables at run time No input device is implied 


EXAMPLES 
get(X, Y, ALPHA) 
get(NAME$) 


GENERIC OUTPUT STATEMENT 


PURPOSE: _ to display values of variables and constants on an output device. 


EXAMPLES 
put (X,Y,ALPHA) 
put(“ THE ANSWER |S", ANSWER) 


ARITHMETIC ASSIGNMENT STATEMENT 


PURPOSE: _ to assign the value of the variable, constant or expression on the right 
side of the replacement operator ('<—’) to the variable named on the left side. 
EXAMPLES 


AREA <— PI * RADIUS * 2 
XY 
AMOUNT +— 25 
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INITIALIZATION OF ACCUMULATORS AND 
COUNTERS 


PURPOSE: to provide a means for initializing the values of accumulators and 
counters. 


EXAMPLES 


set SUM to 0 
set COUNT to 0 
set LAST to 100 


INCREMENT ACCUMULATORS AND COUNTERS 


PURPOSE. _ to provide a means to increase or decrease the value of accumulators, 
counters and constants. 


EXAMPLES 


increase SUM by AMOUNT 
increase COUNT by 1 
decrease BALANCE by AMOUNT 


END OF PROGRAM MARKER 


PURPOSE: | to provide a means of marking the end of a program unit. 


EXAMPLE 
end. 


START OF PROGRAM MARKER 


PURPOSE: _ to mark the start of a program unit (main routine or subroutine) and to 
name that unit 


EXAMPLES 


MAIN. 
SORT 


HALT PROGRAM EXECUTION 
PURPOSE: To end execution of a program. 


EXAMPLE 
stop 
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oOIMPLE LOOPS 


PURPOSE: _ to provide a means for a simple loop, the content of which is executed 
repeatedly until the structure is exited 
EXAMPLE 


loop 
block of statements 
end loop 


LOOP EXIT 


PURPOSE: | to provide a means of exiting a loop. 


EXAMPLE 


break 
if(condition) break 


INDEXED LOOP 


PURPOSE: | to provide a facility for a repeating loop to be performed a specified 
number of times with a structure index. 


EXAMPLE 


loop while COUNTER goes from START to STOP by STEP 
. block of statements 
end loop 


NEXT LOOP [ITERATION 


PURPOSE. _ to cause the next iteration of a loop to be initiated immediately. If the 
loop is indexed, the loop control variable is incremented and tested against its terminal 
value immediately If there is no loop index, control passes immediately to the logical 
test 


EXAMPLE 


loop while INDEX goes from 1 to 10 
statements 
if(condition) next 
statements 
end loop 
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PURPOSE: to provide for the execution of a block of statements if a condition is 
true. 
EXAMPLE 

if{condition) 

[ block of statements 


DOUBLE ALTERNATIVE DECISION STRUCTURE 


PURPOSE. to provide for the execution of one block of statements if a logical 
condition is trie and another block of statements if the condition is false. 
EXAMPLE 

if(condition) 

[ true task 

else 

[ false task 


| 


MULTIPLE ALTERNATIVE DECISION 
oTRUCTURE 


PURPOSE: _ to provide a process for selecting a single alternative from a series of 
three or more. The multiple alternative decision structure, or the case structure as it is 
sometimes known, is illustrated below: 


BRAAMPLE 
select (SWITCH) 
case 1'[ block of statements | 
case 2 [ block of statements 
casen [ block of statements ] 
default: | block of statements J 


Here SWITCH ts a variable Control is passed by the select statement to that case 
block with the same value as SWITCH. If no case block with that value is present, 
control passes to the default block. If SWITCH has a value with a fractional part, that 
fractional pari is truncated for use by the select statement. The value of SWITCH, 
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however, is not actually modified. Any number of case blocks may be present so long 
as each has a distinct value. 


FUNCTION DEFINITION 


PURPOSE: _ to provide a pseudocode facility for defining a mathematical function. 
EXAMPLE 
define function H(X) = mathematical expression 


Here His the function name and X is a dummy argument or parameter variable Its value 
is local to the function See Section 6 4 for a more detailed treatment. 


SUBROUTINES 


PURPOSE: to provide a means of modularizing programs through the use of 
subroutines 
EXAMPLE 
invoking a subroutine 
call SORT: 
subroutine 
SORT 


return 
end. 


FILE PROCESSING 


PURPOSE. _ to provide a means for opening and closing files and reading from and 
writing to them. 
EXAMPLES 

to open a file: 

open ‘‘DATAFILE” (1,DA,IN,recordsize= 20, filesize = 40) 


where DATAFILE is the name of the file and 1 Is a file identification number to be used in 
subsequent read, write and close statements. Files may be direct access (DA) or 
sequential access (SA) and input (IN) or output (OUT) The record size indicates the 
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maximum number of characters in each record and the file size indicates the maximum 
number of records in the file. 


to read from a file. 

get 1 (Xx) 
specifies that a value should be retrieved from file number 1 for the variable X. The lack 
of a pointer variable implies sequential access. 

get 1:P (X) 
specifies that a value is to be retrieved for X from file number 1 recordP This specifies 
random or direct access. 


to close a file: 
close 1 


B LIBRARY OF SUBROUTINES 


This library includes several subroutines that perform recurring tasks. Included with 
each subroutine is a discussion of its purpose and usage. A complete listing and 
sample main program which calls the subroutine are listed. The output of the main 
program is displayed 


DATAFL 


PURPOSE. DATAFL is a subroutine that generates a distribution of integers in a 
specified interval. The distribution varies from flat to peaked at the center of the interval 
depending upon the value of a parameter K. As K increases the distribution 
approximates a normal distribution. 


USAGE: |n order that the DATAFL subroutine function properly, your main program 
must dimension an array X() to hold the data generated. It must also pass the number 
of data elements to be generated, their maximum and minimum values, and a 
parameter K which determines the degree of peaking about the center of the interval. 
The distribution is flat for K = 4 


SUBROUTINE LISTING 


8300 REM -- SUBROUTINE DATAFL 1-20-81 
8310 REM —- INPUT VARIABLES: RO, R1, N, K 
8320 REM -- LOCAL VARIABLES: I, J 

8330 REM -- OUTPUT VARIABLES: X(I) 

8340 FORI=1TON 

8345 x(I)=0 

8350 FORJ=1TOK 

8360 X(I) = X(I) + RND (1) 

8370 NEXTJ 

8375 XI) = INT (X(I) *(R1 — RO + 1) /K) + RO 
8380 NEXT! 

8390 RETURN 

9999 END 


MAIN PROGRAM LISTING 


100 REM -- MAIN PROGRAM (DATAFL) 
110 REM —- INITIALIZE FOR 15 DATA ELEMENTS 
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120 DIM X(15) 

130 PRINT "ENTER SMALLEST DATA VALUE 
140 INPUT RO 

150 PRINT "ENTER LARGEST DATA VALUE 
160 INPUT R1 

170 PRINT "ENTER THE 'PEAKING PARAMETER '; 
180 INPUT K 

190 N= 15 

200 REM -- CALL SUBROUTINE 

210 GOSUB 8300 

220 REM -- PRINT OUTPUT 

230 FORI=1TON 

240 PRINT X(i) 

250 NEXT I 

260 GOTO 9999 


TYPICAL OUTPUT 


ENTER SMALLEST DATA VALUE ?3 
ENTER LARGEST DATA VALUE 717 
ENTER THE 'PEAKING' PARAMETER 73 
3 

12 

14 

11 

14 

10 

6 

11 

12 

8 

12 

13 

10 

v4 

12 


BUBBLE 


PURPOSE: The subroutine BUBBLE sorts a one-dimensional array (vector) 
named X() into ascending order via the interchange method. 


USAGE: Before the subroutine is called the array X() should be dimensioned and 
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loaded with values. A variable named N should contain the value of the dimension of 
X() Upon return, the vector will be sorted in ascending order Note that the original 
vector will be lost so ff it is needed in its original order, the programmer should copy it 
into another array before the subroutine is called. 


SUBROUTINE LISTING 

8900 REM -—- SUBROUTINE BUBBLE 12-1-80 
8902 REM —-— INPUT VARIABLES: X(), N 
8904 REM -- LOCAL VARIABLES: I, J, S 


8906 


REM —~ OUTPUT VARIABLES: X() — SORTED 


8910 FORI =NTO2 STEP —1 

8920 FORJ=1TOt[- 1 

8930 REM —--— IF X(J) > X(J + 1) THEN 
8940 IF X(J) < = X(J + 1) THEN 8970 
8950 S = X(J) 

8955 X(J) = X(J + 1) 

8960 XJ + 1)=S 

8965 REM -— ENDIF 

8970 NEXT J 

8980 NEXT I 

8990 RETURN 

9999 END 


MAIN PROGRAM LISTING 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 


REM -— MAIN PROGRAM (BUBBLE) 
REM —-— INITIALIZE 
DIM X(15) 
N= 15 
REM -— LOAD ARRAY X() 
FORI=1TON 

READ X(I) 
NEXT I 
REM -- CALL SUBROUTINE 
GOSUB 8900 
REM ~— PRINT OUTPUT 
FORI=1TON 

PRINT X(I) 
NEXT! 
REM -- DATA 
DATA 9,5, 10, 15,9, 11,12,9,8, 12,13, 14,6,7,11 
GOTO 9999 
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PURPOSE: MEDIAN is a subroutine that computes the median value of an array of 
numeric values The array must already be sorted in ascending order. The subroutine 
BUBBLE is available in the library for sorting arrays 


USAGE: inorder that the MEDIAN subroutine function properly, your main program 
should load an array called X() with the values from which the median is to be selected. 
A variable N should be assigned a value equal to the number of items in X(). After 
subroutine execution is completed, the variable M9 will contain the value of the median 
of the array. 


SUBROUTINE LISTING 


9200 REM —- SUBROUTINE MEDIAN 12-5-80 
9202 REM —- INPUT VARIABLES: N, X() 
9204 REM —- LOCAL VARIABLES: i9 

9206 REM —- OUTPUT VARIABLES: MQ, X() 
9210 I9=INT(N/ 24 1) 

$220 WIS = X(iS) 

9230 REM -- IF NIS EVEN THEN 

9240 IF INT (N / 2) * 2 < > N THEN 9270 
9250 M9 = (X(I9) + X(I9 — 1))/7 2 

9260 REM —- ENDIF 

9270 RETURN 

9999 END 
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MAIN PROGRAM LISTING 


100 REM -—- MAIN PROGRAM (MEDIAN) 

110 REM —— INITIALIZE 

120 DIM X(15) 

130 N=15 

140 REM —-— LOAD ARRAY X() 

150 FORI=1TON 

160 READ X(I) 

170 NEXT I 

180 REM -- CALL SUBROUTINE 

190 GOSUB 9200 

200 REM -- PRINT OUTPUT 

210 FORI=1TON 

220 PRINT X(l); SPC(2); 

230 NEXT I 

240 PRINT: PRINT 

250 PRINT "THE MEDIAN OF THIS ARRAY IS ";M9 
260 REM -—- DATA 

270 DATA 4,5,8,8,9,9,9,9,9, 10, 10,11,12,12,14 
280 GOTO 9999 


TYPICAL OUTPUT 
4 5 8 8 9 9 9 9 Y 10 10 11 #12 12 14 


THE MEDIAN OF THIS ARRAY IS 9 


SIGMA 


PURPOSE. SIGMA is a subroutine that computes the mean of a series of numeric 
values and the standard deviation using two separate algorithms, one for a population 
and the other for a sample 


USAGE: To use SIGMA, the array of values should already be in a vector named 
X() and the variable N should be initialized to the size of X(). Upon return, the variable 
M8 will contain the value of the mean of X() S9 will contain the standard deviation for 
X() assuming X() to be a population while S8 will contain the standard deviation of X() 
assuming it to be a sample 


SUBROUTINE LISTING 


9100 REM -—- SUBROUTINE SIGMA 12-12-80 
9102 REM —- INPUT VARIABLES: N, X() 
9104 REM -- LOCAL VARIABLES: I, $1, S2 
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9106 REM -- OUTPUT VARIABLES: M8, S8, S9 
9108 $1=0 

9110 $2-0 

9120 FORI= 1TON 

9130 $1 = S1 + X(I) 

9140 $2 = S2 + X(I) * X(N) 

9150 NEXT! 

9160 M&8=-S1/N 

2170 SO =- SQR(N*S2 —S$1*S1)/N 

9180 S8 = SQR((N * S2 — S1 * S1) / (N * (N — 1))) 
9190 RETURN 

9999 END 


MAIN PROGRAM LISTING 
700 RE —- MAIN P 

110 REM —- INITIALIZE 

120 DIM X(15) 

130 N= 15 

140 REM —-- LOAD ARRAY X 
150 FORI=1TON 

160 READ X(i) 

170 NEXT! 

180 REM -- CALL SUBROUTINE 

190 GOSUB 9100 

200 REM -- PRINT OUTPUT 

210 FORI=1TON 

220 PRINT X(I); SPC(2); 

230 NEXT I 

240 PRINT : PRINT 

250 PRINT “THE MEAN OF THE ARRAY IS °';Hi8 

260 PRINT 

270 PRINT "THE STANDARD DEVIATION IS ';S8;" (SAMPLE)" 
280 PRINT 

290 PRINT "THE STANDARD DEVIATION IS °55S9;" (FOFULATION)’ 
300 REM -- DATA 

310 DATA 9,5, 10,9,11, 12,9, 14,8, 10,9,8,9, 12,4 

320 GOTO essg 


TYPICAL OUTPUT 


9 5 10 9 11 12 9 14 8 10 9 8 9 12 4 
THE MEAN OF THE ARRAY IS 9.26666667 

THE STANDARD DEVIATION IS 2.54857569 (SAMPLE) 

THE STANDARD DEVIATION IS 2.462 15804 (POPULATION) 
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XYSORT 


PURPOSE: The subroutine XYSORT is a tandem sort that uses the same algorithm 
used in BUBBLE to sort the values of two vectors X() and Y() on the value of X(). 


USAGE. Betore the subroutine is called the arrays X() and Y() should be 
dimensioned and loaded with values. A variable named NV should contain the limit of the 
arrays. Upon return, the vectors will be sorted on X() in ascending order Note that the 
original vectors will be lost If they are needed, the programmer should copy them into 
another array before the subroutines are called. 


SUBROUTINE LISTING 


8900 REM -- SUBROUTINE XYSORT 2-20-81 

8902 REM -- INPUT VARIABLES: N, X(), Y() 

8904 REM -- LOCAL VARIABLES: S, I, J 

8906 REM -- OUTPUT VARIABLES: X(), Y() SORTED 
8910 FORI = NTO 2 STEP —1 

8915 FORJ=1TOI-1 


8920 REM —~— IF X(J) > X(J + 1) THEN 
8925 IF X(J) < = X(J + 1) THEN 8980 
8930 S = X(J) 

8935 X(J) = X(J + 1) 

8940 X(J + 1)=S 

8945 S = Y(J) 

8950 Y(J) = Y(J + 1) 

8960 ¥(J + 1)=S5 

8970 REM —-- ENDIF 

8980 NEXT J 

8985 NEXT I 

8990 RETURN 

9999 END 

MAIN PROGRAM LISTING 


100 REM -—- MAIN PROGRAM (XYSORT) 
110 REM —— INITIALIZE 

120 DIM X(15), ¥(15) 

130 N=15 

140 REM —- LOAD ARRAY X 

150 FORI=1i1TON 

160 READ X(I) 

170 NEXT! 

180 REM -- LOAD ARRAY Y 

190 FORI=1TON 
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200 READ Y(I) 

210 NEXT | 

220 REM -- CALL SUBROUTINE 

230 GOSUB 8900 

240 REM —— PRINT OUTPUT 

250 PRINT '"X VALUES",'Y VALUES' 

260 PRINT 

270 FORI=1TON 

280 PRINT X(i), ¥(1) 

290 NEXT | 

300 REM -- DATA 

310 DATA 9,5,10,9,11,12,9, 14,8, 10,9,8,9,12,4 
320 DATA 24, 12,25,20,30,29,23,33, 18,23,23,14,20,28,10 
330 GOTO 9999 


TYPICAL OUTPUT 

X VALUES Y VALUES 
4 19 
5 12 
8 18 
8 14 
9 24 
9 20 
9 23 
9 23 
9 20 
10 25 
10 23 
11 30 
12 29 
12 28 
14 33 

YXSORT 


PURPOSE: The subroutine YXSORT is a tandem sort that uses the same algorithm 
used in BUBBLE to sort the values of two vectors X() and Y() on the value of Y{) 


USAGE: Before the subroutine is called the arrays X() and Y() should be 
dimensioned and loaded with values. A variable named N should contain the limit of the 
arrays. Upon return, the vectors will be sorted on Y() in ascending order Note that the 
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original vectors will be lost. If they are needed, the programmer should copy them into 
another array before the subroutine is called. 


SUBROUTINE LISTING 


8900 REM -—- SUBROUTINE YXSORT 2-20-81 

8902 REM —-- INPUT VARIABLES: N, X(), Y() 

8904 REM -—- LOCAL VARIABLES: §, I, J 

8906 REM —-— OUTPUT VARIABLES: X(), Y() SORTED 


8910 FORI=NTO2 STEP —1 
8915 FORJ=1TOI-— 1 
8920 REM -- IF Y(J) > Y(J + 1) THEN 
8925 IF Y(J) < = Y(J + 1) THEN 8980 
8930 S = Y(J) 

8935 Y(J) = Y(J + 1) 
8940 Yiu+1)=S 
8945 S = X(J) 

8950 X(J) = X(J + 1) 
8960 XJ + 1)=S 
8970 REM -- ENDIF 

8980 NEXTJ 

8985 NEXTI 

8990 RETURN 

9999 END 

MAIN PROGRAM LISTING 
100 REM -- MAIN PROGRAM (YXSORT) 
110 REM —- INITIALIZE 

120 DIM X(15), (15) 

130 N= 15 

140 REM -- LOAD ARRAY X 
150 FORI=1TON 

160 READ X(I) 

170 NEXTI 

180 REM -- LOAD ARRAY Y 
190 FORI=1TON 

200 ~—swrRRE AD °(I) 

210 NEXT I 

220 REM —- CALL SUBROUTINE 
230 GOSUB 8900 

240 REM -- PRINT OUTPUT 


250 
260 


PRINT "X VALUES',"Y VALUES" 
PRINT 
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270 FORI=1TON 

280 PRINT X(i), Y(1) 

290 NEXT | 

300 REM -- DATA 

310 DATA 9,5, 10,9,11,12,9, 14,8, 10,9,8,9,12,4 

320 DATA 24, 12,25,20,30,29,23,33,18,23,23,14,20,28, 10 
330 GOTO 9899 


TYPICAL OUTPUT 

X VALUES Y VALUES 
4 10 
5 12 
8 14 
8 18 
9 20 
9 20 
9 23 
10 23 
9 23 
9 24 
10 25 
12 28 
12 29 
11 30 
14 33 

PMCORR 


PURPOSE. The subroutine PMCORR computes Pearson's product moment corre- 
lation coefficient for pairs of data values. Additionally, it computes the slope and 
intercept of the best fit straight line using the method of least Squares. 


USAGE: Before the subroutine is called, two arrays X() and Y{) should be 
dimensioned and loaded with pairs of data values For example, X(i) and Y(1) will be 
treaiedas apair The variable V should be assigned the value of the size of X{) and ¥(). 
When control returns to the main program, AY will have the value of the correlation 
coefficient, A will have the value of the y-intercept, and B will have the value of the 
slope 


SUBROUTINE LISTING 


9700 REM -- SUBROUTINE PMCORR 12-15-80 
9702 REM —- INPUT VARIABLES: N, X(), ¥() 
9704 REM --— LOCAL VARIABLES: J, $1 THRU $7 


9706 
9710 
9715 
9720 
9725 
9730 
9735 
9740 
9745 
9750 
9755 
9760 
9765 
9770 
9780 
9790 
9999 
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REM —~- OUTPUT VARIABLES: RQ, A, B 
REM —— INITIALIZE 
$1=—-0:82=0:$3=0:$84=0:85=0 
FORJ=1TON 

$1=$1-+ X(J) 

S2 = S2 + Y(J) 

$3 = $3 + X(J) * ¥(J) 

S4 = S4 + X(J) * X(J) 

S5 = $5 + ¥(J) * Y(J) 
NEXT J 
S6 =N*S3 —- $1* $2 
S7 = SQR ((N * S4 — $1 * $1) * (N * S5 — S2 * S2)) 


R9 = S6/S7 

B = S6 / (N * S4 — $1 * $1) 
A = (S2 — B*S1)/N 
RETURN 

END 


MAIN PROGRAM LISTING 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 


REM —- MAIN PROGRAM (PMCORR) 
REM —— INITIALIZE 
DIM X(15), ¥( 15) 
N=15 
REM -~ LOAD ARRAY X 
FORI=1TON 

READ X(I) 
NEXT | 
REM —- LOAD ARRAY Y 
FORI=1TON 

READ Y(I) 
NEXT ! 
REM -- CALL SUBROUTINE 
GOSUB 9700 
REM —~ PRINT OUTPUT 
PRINT "X VALUES',"Y VALUES" 
PRINT 
FORI=1TON 

PRINT X(0), Y(I) 
NEXT | 
PRINT 
PRINT "THE CORRELATION COEFFICIENT IS ';R9 
PRINT 
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330 PRINT "THE SLOPE OF THE LINE OF BEST FIT IS °';B 

340 PRINT 

350 PRINT "THE Y INTERCEPT OF THE LINE OF BEST FITIS ‘SA 
360 REM —-DATA 

370 DATA 9,5, 10,9, 11,12,9, 14,8, 10,9,8,9,12,4 

380 DATA 24, 12,25,20,30,29,23,33, 18,23,23, 14,20,28,10 
380 GOTO $sS9 


TYPICAL OUTPUT 
X VALUES Y VALUES 


© 
Y NO 
or 


© LS 
Nh NG 
ey) <e) 


Hm OOO sr OMe Ow wt Os OO 
NO ‘ 
NO a) 
co ie) 


THE CORRELATION COEFFICIENT IS .951306075 
THE SLOPE OF THE LINE OF BEST FIT IS 2.47947217 
THE Y INTERCEPT OF THE LINE OF BEST FIT IS —.843108763 


MATADD 


PURPOSE: MATADD is a subroutine that forms the sum or difference of two 


maaternan af sumoarcg! waAlinn 
thICAdpIeVO VI Pidbbburbeut yvruIuugd 


USAGE: In order that the MATADD subroutine function properly, your main 
program must load and dimension two arrays A() and 8() An array C() must also be 
dimensioned the same size but not loaded. These arrays must each have equal 
numbers of rows and equal numbers of columns (though row numbers need not equal 
column numbers) If subtraction is to be performed, the subtrahend must be selected 
as matrix 8() The subroutine will return the sum (or difference) matrix C() of the same 
dimension as A() and &() 
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SUBROUTINE LISTING 


8800 
8802 
8804 
8806 
8810 
8815 
8820 
8825 
8830 
8835 
8840 
8845 
8850 
8855 
8860 
8865 
8870 
8875 
8880 
8885 
8890 
8895 
9999 


REM -—- SUBROUTINE MATADD 11-26-80 
REM ~-—- INPUT VARIABLES: M, N, AQ), BQ) 
REM ~— LOCAL VARIABLES: O, I, J 
REM -- OUTPUT VARIABLES: C() 
PRINT "OPTION 1 = ADDITION (A + B)' 
PRINT "OPTION 2 = SUBTRACTION (A — B)' 
PRINT "ENTER THE OPTION NUMBER 
INPUT O 
IF O < > 1 THEN 8865 
FORI= 1TOM 

FOR J=1TON 

Cil,J) = A(i,J) + Bél,J) 

NEXT J 
NEXT | 
GOTO 8895 
IF O < > 2 THEN 8810 
FOR!= 1TOM 

FOR J=1TON 

Cil,J) = A(l,J) — BCl,J) 

NEXT J 
NEXT I 
RETURN 
END 


MAIN PROGRAM LISTING 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


REM —- MAIN PROGRAM (MATADD) 
REM —- INITIALIZE 
DIM A(3,4), B(3,4) 
M=3:N=4 
REM —-- LOAD AND PRINT MATRIX A 
PRINT "MATRIX A" : PRINT 
FOR!=1TOM 
FORJ=1TON 
READ Ai(I,J) 
PRINT A(I,J); SPC( 3); 
NEXT J 
PRINT 
NEXT | 
REM -—- LOAD AND PRINT MATRIX B 
PRINT : PRINT "MATRIX B' : PRINT 
FOR! =1TOM 
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260 FORJ=i1TON 


270 READ Bi(I,J) 

280 PRINT B(i,J); SPC( 3); 
2380 NEXT J 

300 PRINT 

310 NEXT I 

320 PRINT 


330 REM -- CALL SUBROUTINE 

340 GOSUB 8800 

350 REM —- PRINT OUTPUT 

360 PRINT: PRINT "MATRIX C*: PRINT 
370 FORI=1TOM 

380 FORJ=1TON 


390 PRINT C(i,J); SPC( 3); 
400 NEXT J 

410 PRINT 

420 NEXT I 


430 REM -- DATA 

440 DATA 1,2,3,1,2,3,4,2, 1,2,1,0 
ABQ NATA 12.2.014,3.1,1,3.4,2 
460 GOTO 9999 


TYPICAL OUTPUT 
MATRIX A 

1+ 2 3 7 

2 3 4 2 

12 1 #0 
MATRIX B 

13 3 =O 
143 «7 

1 3 4 2 


OPTION 1 = ADDITION (A + B) 
OPTION 2 = SUBTRACTION (A — B) 
ENTER THE OPTION NUMBER 71 


MATRIX C 

2 5 6 1 
3 7 7 3 
2 5 5 2 
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MATMUL 


PURPOSE: MATMUL is a subroutine that forms the product of two matrices of 
numerical values 


USAGE: In order that the MATMUL subroutine function properly, your main 
program must dimension and load two arrays A() and &(}. Matrix C() must also be 
dimensioned but not loaded. These arrays are to be multiplied in the order A() * B(). To 
perform a matrix multiplication the number of columns of A() must equal the number of 
rows of B() The program passes M (rows of matrix A()), WN (columns of matrix A()) and 
/ (columns of matrix 8()). The subroutine returns an M by L matrix called C() 


SUBROUTINE LISTING 


8700 REM -- SUBROUTINE MATMUL 1-25-81 
8702 REM -- INPUT VARIABLES: M, N, L, A(), BO) 
8704 REM -- LOCAL VARIABLES: I, J, K 

8708 REM -- OUTPUT VARIABLES: C() 

8710 FORI=1TOM 

8720 FORJ=1TOL 


8730 Ci(i,J) = O 

8740 FORK = 1TON 

8750 C(I,J) = C(I,J) + A(I,K) * B(K,J) 
8760 NEXT K 

8770 NEXT J 

8780 NEXT! 

8790 RETURN 

9999 END 

MAIN PROGRAM LISTING 


100 REM -- MAIN PROGRAM (MATMUL) 
1710 REM —-— INITIALIZE 

120 DIM A(3,4), B(4,3) 

130 M=3:N=4:L=3 

140 HOME 

150 REM -- LOAD AND PRINT MATRIX A 
160 PRINT "HERE IS MATRIX A’: PRINT 
170 FORI=1TOM 

180 FORJ=1TON 

190 READ A(I,J) 

200 PRINT A(i,J); SPC( 2); 

210 NEXT J 

220 PRINT 
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230 NEXT I 

240 REM ——- LOAD AND PRINT MATRIX B 

220 PRINT : PRINT "HERE IS MATRIX B': PRINT 
230 FORI=1TON 

240 FORJ=1TOL 


250 READ B(I,J) 

260 PRINT B(I,J); SPC( 2); 
270 NEXT J 

280 PRINT 

290 NEXT I 


300 REM -- CALL SUBROUTINE 

310 GOSUB 8700 

320 REM -— PRINT OUTPUT 

330 PRINT: PRINT "HERE IS THE PRODUCT MATRIX : PRINT 


aan FAR! 4 TA AA 
SUP. == 8 SP see 


ot 

350 FORJ=1TOL 

360 PRINT C(I,J); SPC( 2); 
370 NEXT J 

380 PRINT 

390 NEXT I 


400 REM -- DATA 

410 DATA 1,2,3,1,2,3,4,2,1,2,1,0 
420 DATA 1,3,3,0, 1,4,3, 1,1,3,4,2 
430 GOTO 9999 


TYPICAL OUTPUT 
HERE iS MATRIX A 


12 3 #1 
2 3 4 2 
12 141 #0 


HERE IS MATRIX B 


WO © «sb 
Be wth ook GD 
ND ot De CO 


HERE §S THE PRODUCT MATRIX 


1312 16 
20 21 26 
4 6 12 
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MATINV 
PURPOSE: MATINV is a subroutine that computes the inverse of a square matrix 
of numerical values 


USAGE: In order that the MATINV subroutine function properly, your main program 
should dimension and load a square array called A(). An array C() of the same size as 
A() must also be dimensioned. The subroutine returns the matrix C() as the inverse Not 
every matrix has an inverse lf the subroutine returns a divide by zero error message 
during execution, your matrix inverse probably does not exist. 


SUBROUTINE LISTING 


8400 REM -- SUBROUTINE MATINV 11-28-80 
8402 REM -- INPUT VARIABLES: M, A() 

8404 REM -- LOCAL VARIABLES: R, §, |, J 
8406 REM -- OUTPUT VARIABLES: C() 

8410 FORI=1TOM 

8415 FORJ=1TOM 


8420 C(I,J) = A(I,J) 
8425 NEXT J 
8430 NEXT I! 


8435 FORI=1TOM 
8440 R = C(i,l) 
8445 FORJ=1TOM 


8450 IF J =1 THEN 8465 
8455 Ci(l,J) = C(i,J) 7 R 
8460 GOTO 8470 

8465 C(l,J)=1/7R 


8470 NEXT J 
8472 FORJ=1TOM 


8474 IF J = | THEN 8490 

8476 S = — CiJ,]) 

8478 FORK=1TOM 

8480 IF K = | THEN 8486 

8482 C(J,K) = C(I,K) * S + C(J,K) 
8484 GOTO 8488 

8486 C(J,K) = C(I,K) *S 

8488 NEXT K 

8490 NEXT J 

8492 NEXT! 


8494 RETURN 
9999 END 
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MAIN PROGRAM LISTING 


100 REM -- MAIN PROGRAM (MATINV) 
110 REM -— INITIALIZE 

120 DIM A(3,3) 

130 M=3 

140 HOME 

150 REM -- LOAD AND PRINT MATRIX A 
155 PRINT "HERE iS MATRIX A’: PRINT 
160 FORI= i TOM 

170 FORJ=1TOM 


180 READ Ai(I,J) 

190 PRINT A(I,J); SPC( 2); 
200 NEXT J 

210 PRINT 

220 NEAT! 

230 PRINT 


240 REM -- CALL SUBROUTINE 

250 GOSUB 8400 

260 REM -—- PRINT OUTPUT 

270 PRINT "HERE IS THE INVERSE OF MATRIX A" 
280 PRINT 

290 FORI=1TOM 

300 FOR J=1TOM 


310 PRINT C(I,J); SPC( 2); 
320 NEXT J 

330 PRINT 

340 NEXT I 


350 REM -- DATA 
360 DATA 1,3,3, 1,4,3,1,3,4 
370 GOTO 9999 


TYPICAL OUTPUT 
HERE IS MATRIX A 
1 3 3 


1 4 3 
1 3 4 


HERE IS THE INVERSE OF MATRIX A 


t -3 -3 
-1 1 0 
-7 0 1 
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oCIENTNOT 


PURPOSE: SCIENTNOT is a subroutine that places any input number into 
standard scientific notation (one digit to the left of the decimal point multiplied by a 
power of ten) 


USAGE. |n order that SCIENTNOT function properly, you must pass the number to 
be placed in scientific notation as a string. The subroutine will return the original string 
under a new name and a new number string (in scientific notation) with the original 
name. 


SUBROUTINE LISTING 


9500 REM -- SCIENTNOT 8-2-80 

9502 REM —- INPUT VARIABLES: NUM$ 

9504 REM -- LOCAL VARIABLES: P, EX$, NUM, M 
9506 REM —-- OUTPUT VARIABLES: SNUMS$, NUM$ 
9510 SNUMS$ = NUM$ 

9515 NUM = VAL (NUMS$) 

9520 NUMS$ = STR$ (NUM) 

9525 REM —-— IF NUMBER IS ALREADY EXPONENTIAL, QUIT 
9530 IF (999999999 — ABS (NUM)) * (ABS (NUM) — .01) < O THEN 
9585 

9535 M= 1 

9540 FORP = —2TO8 

9545 IF ABS (NUM) < .1 * M THEN 9560 

9550 M=M* 10 

9555 NEXT P 

9560 NUM = NUM * 100 /M 

9565 EX$ = "0" + STR$ (ABS (P)) 

9570 IF P > —1 THEN EXS = "E+" + ExX$: GOTO 9580 
9575 EX$ ="E—"+ Ex$ 

9580 NUMS$ = STRS (NUM) + EX$ 

9585 RETURN 

9999 END 


MAIN PROGRAM LISTING 


100 REM —- MAIN PROGRAM (SCIENTNOT) 

110 PRINT "ENTER THE NUMBER TO BE PLACED" 
120 PRINT ‘IN SCIENTIFIC NOTATION '; 

130 INPUT NUM$ 

140 REM —- CALL SUBROUTINE 

150 GOSUB 9500 

160 REM —- PRINT RESULT 
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170 PRINT 

180 PRINT "HERE IS THE NUMBER ';SNUMS$ 
190 PRINT "IN SCIENTIFIC NOTATION: ";NUM$ 
200 GOTO 993g9 


TYPICAL OUTPUT 


ENTER THE NUMBER TO BE PLACED 
IN SCIENTIFIC NOTATION 7561.3 


HERE IS THE NUMBER 5671.3 
IN SCIENTIFIC NOTATION: 5.613E +402 


SIGNIFDIGIT 


PURPOSE: SIGNIFDIGIT is a subroutine that places any input number into 
standard scientific notation with a specified number of significant digits. 


USAGE: In order for this subroutine to function properly, you must pass the number 
as astring The number of significant digits is passed as a numerical variable You must 
also merge the subroutine SCIENTNOT with your program since it is called by this 
subroutine. This subroutine returns the original string as SNUMS§ and the new string 
under the original name. 


SUBROUTINE LISTING 


9400 REM -- SUBROUTINE SIGNIFDIGIT 8-1-80 

9402 REM —-- INPUT VARIABLES: NUNS, SIGD 

9404 REM -- OUTPUT VARIABLES: NUM$, SNUM$ 

9410 REM -- PLACE NUMBER IN SCIENTIFIC NOTATION 
9415 GOSUB 9500 

9420 EX$ = MID$ (NUM$, LEN (NUM$) — 3,4) 

9425 NUM$ = MID$ (NUM$, 1, LEN (NUM$) — 4) 

9430 NUM = VAL (NUM$) 

9435 NUM — INT (NUM * 10 *(SIGD — 1) + .5) / 10*(SIGD — 1) 
9440 NUM$ = STR$ (ABS (NUM)) 

9445 REM -- ADD ZEROES AS NEEDED 


Pen PPA CRA AN 


Se0U Ir tire {evuiipy - = Draw + 1 bic ot0U 
9455 IF SIGD = 1 THEN 9480 

9460 IF LEN (NUM$) = 1 THEN NUM$ = NUM$ - "." 
9465 NUMS = NUM$ + ‘Oo 

9470 IF LEN (NUM$) < SIGD + 1 THEN 9465 

9475 REM -—- CONCATENATE AND PRINT 

9480 IF NUM < 0 THEN NUM$ = "—" + NUM$ 
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9485 NUM$ = NUM$ + EX$ 
9490 RETURN 
9999 END 


MAIN PROGRAM LISTING 


100 REM -—- MAIN PROGRAM (SIGNIFDIGIT) 

110 REM -- PROMPT FOR NUMBER 

120 PRINT "ENTER THE NUMBER TO BE PLACED" 
130 PRINT "IN SCIENTIFIC NOTATION '; 

140 INPUT NUM$ 

150 PRINT 

160 PRINT “NOW ENTER THE NUMBER OF SIGNIFICANT' 
170 PRINT "DIGITS °; 

180 INPUT SIGD 

190 REM -- CALL SUBROUTINE 

200 GOSUB 9400 

210 REM -—- PRINT OUTPUT 

220 PRINT 

230 PRINT "THE NUMBER (';SNUMS§;') WRITTEN IN' 
240 PRINT "SCIENTIFIC NOTATION WITH ‘;SIGD 
250 PRINT "SIGNIFICANT DIGITS IS ';NUM§;"." 
260 GOTO 9999 


TYPICAL OUTPUT 
ENTER THE NUMBER TO BE PLACED 
IN SCIENTIFIC NOTATION ?546.2 


NOW ENTER THE NUMBER OF SIGNIFICANT 
DIGITS ?5 


THE NUMBER (546.2) WRITTEN IN 
SCIENTIFIC NOTATION WITH 5 
SIGNIFICANT DIGITS IS 5.4620E + 02. 


PRINT USING 


PURPOSE: PRINT USING is a subroutine that produces numerical output in a 
prescribed format. The output can include character data. 


USAGE: In order that PRINT USING function properly, you must have established 
the print image in a character string called PU$. Within PU$, locations for number 
images must be indicated by the symbol "#" The number of numerical images in the 


B21 


B22 Appendix B 


string (N) and an array (NP(N)) containing the data to be printed in the image must also 
be passed to the subroutine. 


SUBROUTINE LISTING 


8600 REM —- SUBROUTINE PRINTUSING 2-19-81 
8602 REM —- INPUT VARIABLES: PU$, NP(N), N 
8604 REM —- LOCAL VARIABLES: L, R, S, X, Y, S$ 
8606 REM —- OUTPUT VARIABLES: N$ 

8616 NS=""S=6 

8612 FORJ=1TON 


8614 L=0:R=0 

8616 X = NP(J):¥ = INT (X) 

8618 FORI=S+ 1TOLEN (PUS$) 

8620 S$ = MID$ (PU$S,I, 1) 

S622 iP SS —'#" THEN GOSUB 9672: GOTO ss20 
8624 NS = N$ + S$ 

8626 NEXT ! 

8628 REM -- ADJUST PARAMETERS 

8630 l=1+L+R:S=!1- 1:R=R-— 1 

8632 REM -—- CHECK FOR OUT OF BOUNDS 

8634 iF LEN ( STRS ( ABS (Y))) < = L THEN 8640 

8636 X$ = "E?": GOTO 8664 

8638 REM —-— SKIP ROUNDING OF INTEGERS 

8640 IF X = Y THEN 8646 

8642 REM -- ROUND AND TRUNCATE 

8643 IF R < O THEN X = INT ((X * 10 + 5)/10: GO TO 8646 
8644 X = INT (X* 10°R + .5)/10°R 

8646 X$ = STR$ (X) 

8648 REM —-— ADJUST FOR SPECIAL VALUES 

8650 IF X = O AND R > O THEN X$ = X$ + ".": GOTO 8660 
8652 IF X *(X — 1) <O AND R > O THEN X$ = "0" + X$ 
8654 IF X*(X + 1) <O AND R > O THEN X$ = "— 0" + STR$ ( ABS (X)) 
8656 IF VAL (X$) = Y AND R > O THEN X$ = X$ + “.' 

8658 REM -- PAD ZEROES 

REGO IF LEN (X$) — LEN (STR$ (Y)) — 1 > = R THEN 8664 
8662 X$ = X$ + 'O': GOTO 8660 

8664 Z$ = MIDS (B$,1,! — 1 — LEN (X$) — LEN (N$)) 
8666 NS = N$ + Z$ + X$ 

8668 NEXT J 


8670 PRINT N$: GOTO 8694 

8672 FORL = 1 TO 20: REM -- LOOP TO FIXL 
8674 S$ = MID$ (PU$,I + L,1) 

8676 IF S$ = "#" THEN 8682 


8678 
8680 
8682 
8684 
8686 
8688 
8690 
8692 
8694 
9999 
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IF S$ = "." THEN GOSUB 8686 
GOTO 8684 

NEXT L 

RETURN 


FOR R = 1 TO 20: REM -~ LOOP TO FIX R 
S$ = MID$ (PU$,I + L + R,1) 
IF S$ < > "#" THEN RETURN 

NEXT R 

RETURN 

END 


MAIN PROGRAM LISTING 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


REM —- MAIN PROGRAM (PRINT USING) 
REM -- INITIALIZE 
HOME 
BS =" 
READ PU$ 
REM —- PRINT HEADING 
PRINT "HERE IS THE INPUT STRING:' 
PRINT : PRINT PUS 
PRINT : PRINT "AND THE OUTPUT:' 
PRINT 
PRINT" NO. BALANCE PAYMENT INT BALANCE" 
PRINT 
READ N,NP(1),NP(2),NP(3) 
FOR M = 1 TO 20 
NP(4) = INT (NP(2) * .08 / 12 * 100 + .5) / 100 
IF NP(2) + NP(4) > = NP(3) THEN 290° 
NP(3) = NP(2) + NP(4) 
NP(5) = 0 
GOTO 300 
NP(5) = NP(2) + NP(4) — NP(3) 
REM ~~ CALL SUBROUTINE 
GOSUB 8600 
IF NP(5) = O THEN 390 
NP(1) = NP(1) + 1 
NP(2) = NP(5) 
NEXT M 
REM -- DATA 
DATA' ## SHHHH.HH HHH.HH HHH 


$SHHAH.AF 


380 


DATA 5, 1,4600,480 


390 GOTO 9999 
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TYPICAL OUTPUT 
HERE !S THE INPUT STRING: 


HH GHHHH.HH HHHA.FH HHH SHER. 


AND THE OUTPUT: 
NO. BALANCE PAYMENT INT BALANCE 


1 $4600.00 480.00 30.67 $4150.67 
2 $4150.67 480.00 27.67 $3698.34 
3 $3698.34 480.00 24.66 $3243.00 
4 $3243.00 480.00 21.62 $2784.62 
5 $2784.62 480.00 18.56 $2323.18 
6 $2323.18 480.00 15.49 $1858.67 
7 $1858.67 480.00 12.39 $1391.06 
& $1391.06 480.06 9.2f 3 920.33 
9 $ 920.33 480.00 6.14 $$ 446.47 
10 $ 446.47 449.45 2.98 §$ 0.00 
CHARGEN 


PURPOSE: The subroutine CHARGEN permits the addition of text to graphic 
images using a trial and error method of formatting. 


USAGE. Before the subroutine is called the graphics to be annotated should be 
prepared in a subroutine beginning at line 7000 


SUBROUTINE LISTING 


6000 REM ~-— CHARGEN 2-25-81 

6010 REM -- INPUT VARIABLES, C$, M, S 

6020 REM —-- LOCAL VARIABLES, C(40), D$, M1(40,4), S$(20) 
6025 REM RS, AS, I, J, K, Q, X1, ¥1, X2 
6030 REM --— OUTPUT VARIABLES, GRAPHICS ONLY 

6N40 REM -- INITIALIZE 

6050 DIM C(40), M1(20,4), $$(20) 

6060 B$ = CHRS(4) 

6070 PRINT 'DO YOU NEED DIRECTIONS (Y/N) '; 

6080 INPUT R$ 

6090 IF R$ = "Y" THEN GOSUB 6500 

6100 REM -- DRAW GRAPHICS TO BE ANNOTATED 

6110 GOSUB 7000 


6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6500 
6502 
6504 
6506 
6508 
6510 
6512 
6514 
6516 
6518 
6520 
6522 
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REM -~- SELECT LOCATION FOR CHARACTER DATA 
GOSUB 6600 
REM -- ENTER CHARACTER DATA AND DRAW 
GOSUB 6700 
REM -- GIVE OPTION TO ERASE 
PRINT "DO YOU WANT TO CHANGE THIS (Y/N) 
INPUT R$ 
IF R$ = 'N’ THEN 6240 
PRINT "WE ERASE AND START OVER" 
HCOLOR = 0:XO = M1(Q,1):YO=M1(Q,2): Q = Q —1 
GOSUB 6720 
XO = 0: YO = 0: HCOLOR = 3:GOTO 6120 
PRINT "WILL YOU ENTER ADDITIONAL TEXT (Y/N) 
INPUT R$ 
IF R$ = "Y' THEN XO = 0:Y0 = 0:GOTO 6120 
REM -— REDRAW GRAPHICS 
TEXT : HOME 
PRINT "NOW WE REDRAW THE FIGURE -' 
FOR J = 1 TO 1000: NEXT J 
HGR: HCOLOR = 3 
GOSUB 7000 
REM -- REDRAW TEXT 
FORN=1TOQ 
C$ = S$(N):XO = M1(N,1):YO = M1(N,2) 
M = M1(N,3):S = M1(N,4) 
GOSUB 6720 
NEXT N 
VTAB 22: PRINT 'TO SAVE THIS ENTER --" 
PRINT 'BSAVE NAME,A$2000,L$2000" 


RETURN 

REM -- PROGRAM INSTRUCTIONS 

HOWE 

PRINT "FEATURES OF THIS PROGRAM ARE:’ 

PRINT : PRINT" 1. ALL CHARACTERS ON THE APPLE’ 
PRINT " KEYBOARD ARE AVAILABLE (EXCEPT' 
PRINT ° THE COMMA).’: PRINT 

PRINT " 2. THREE MODES OF PRINTING ARE’ 

PRINT ° AVAILABLE WITH SINGLE OR" 

PRINT ° MULTIPLE CHARACTERS.’ 

PRINT : PRINT" 3. SIZE OF FIGURES CAN BE SCALED." 


PRINT : PRINT "PRESS ANY KEY TO CONTINUE’ 
GET A&: IF A$ = "" THEN 6530 
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6524 HOME 

6526 PRINT 'PRINTING MODES:’: PRINT 

6528 PRINT "MODE 1 - HORIZONTAL E.G ‘'123" 
6530 PRINT: PRINT "VERTICAL DOWN E.G. 1° 


6532 PRINT" 2" 

6534 PRINT" 3’ 

6536 PRINT : PRINT "MODE 3 — READING UPWARD" 
6538 PRINT 


6540 PRINT 'USE THE NORMAL CURSOR KEYS TO MOVE THE" 
6542 PRINT "DOT WHICH APPEARS IN THE UPPER LEFT" 
6544 PRINT "CORNER OF THE SCREEN. POSITION THE" 
6546 PRINT "DOT WHERE THE FIRST CHARACTER IS TO BE" 
6548 PRINT "PRINTED. THEN PRESS 'S' AND ENTER THE" 
6550 PRINT 'CHARACTER(S) TO BE PRINTED.’ 

6552 PRINT : PRINT "WRITE SOME TEXT iN EACH MODE" 
6554 PRINT "IN THE BOX WHICH IS DRAWN.’ 

6556 PRINT "PRESS ANY KEY TO CONTINUE.’ 

6558 GET AS: IF A$ = "" THEN 6558 

6560 HOME : RETURN 

6600 REM -- MOVE TO PRINT POSITION 

6602 HPLOT 0,0 

6604 VTAB 22 

6606 PRINT "NOTE THE DOT IN THE UPPER LEFT CORNER.’ 
6608 PRINT "MOVE TO THE PRINT POSITION NOW.’ 

6610 PRINT "PRESS 'S' TO STOP." 

6612 FORI=1TO 1000 

6614 GET A$: IF A$ = "'THEN 6614 

6616 | HCOLOR = 0: HPLOT X0,YO 

6618 IF A$ ='S" THEN HPLOT X0,Y0: HCOLOR = 3: GOTO 6632 
6620 _—swiF- A$ = "Mi" THEN YO = YO + 1 

6622 iF A$ ='I' THEN YO = YO — 1 

6624 IF AS = "K" THEN XO = XO + 1 

6626 IF A$ = "J" THEN XO = XO — 1 

6628 HCOLOR = 3: HPLOT X0,YO 

6620 MEYT! 

6632 RETURN 

6700 REM -- CHARACTER SELECTION AND DRAWING 
6702 PRINT "ENTER THE CHARACTER(S) TO BE PRINTED" 
6704 INPUT C$ 

6706 Q=Q+ 1:S$(Q) = C$ 

6708 PRINT "IN WHAT MODE (1, 2, OR 3)’; 

6710 INPUT M 


6712 
6714 
6716 
6718 
6720 
6722 
6724 
6726 
6728 
6730 
6732 
6734 
6736 
6738 
6740 
6742 
6800 
6802 
6804 
6806 
6808 
6810 
6812 
6814 
6816 
6818 
6820 
6822 
6824 
6826 
6828 
6830 
6832 
6834 
6836 
6838 
7000 
7005 
7010 
7020 
7030 
9999 
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PRINT "ENTER SCALE (1 = NORMAL, 2 = DOUBLE,’ 
PRINT "AND SO ON.’; 
INPUTS 
M1(Q,1) = XO:M1(Q,2) = YO:M1(Q,3) = M: M1(Q,4) = S$ 
FOR K = 1 TOLEN (C$) 
PRINT D$;"OPEN HIRES,L36' 
C(K) = ASC ( MIDS (C$,K,1)) —31 
PRINT D$;"READ HIRES,R':C(K) 
INPUT N$ 
GOSUB 6800 
IF M = 1 THEN XO = XO + 77S 
IF M = 2 THEN YO = YO + 8* 5S 
IF M = 3 THEN YO = YO- 67S 
PRINT D$; "CLOSE HIRES' 
NEXT K 
RETURN 
REM -- DRAWING SUBROUTINE 
FORI=-1TO7 
FORJ=1T0O5 
IF M < > 3 THEN 6822 
IF MIDS (N$,5 * (f— 1) + J,1) = "0" THEN 6834 
FORI=1TOS 
X1=X04+ S*h:Y1=YoOo-—S*F#J-—tlh-+1 
X2=X0+S7*1+S-—1 
HPLOT X1,Y1 TO X2,Y1 
NEXT Il 
GOTO 6834 
IF MIDS (NS,5 * (I — 1) + J,1) = ‘O" THEN 6834 
FORI=1TOS 
X1=X04J5*S:V1=YO41*S+I-1 
X2=X0+JS*S+S-1 
HPLOT X1,Y1 TO X2,Y1 
NEXT fl 
NEXT J 
NEXT I 
RETURN 
REM -- GRAPHICS SAMPLE 
HGR: HCOLOR = 3 
HPLOT 50,20 TO 150,20 TO 150,140 
HPLOT 50,20 TO 50,140 TO 150,140 
RETURN 
END 
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MAIN PROGRAM LISTING 


100 REM —-— MAIN PROGRAM (CHARGEN) 
110 REM -- CALL SUBROUTINE 

120 GOSUB 6000 

130 GOTO 9999 


TYPICAL OUTPUT 
(NONE SHOWN) 


C ASCII CODES 


Below we present ASCil codes for the characters and functions most likely to be 


useful 


ASCIT CODE 


00 
01 
02 
03 
04 
05 
06 
07 
08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 


Apple 


Bell 
Backspace 


Line feed 


Form feed 
Return 


Escape 


PET 


Return 


Cursor down 
Reverse screen 
Cursor home 
Delete 


Cursor right 


TRS-80 


Backspace 
Line feed 


Form feed 
Return 

Turn on cursor 
Turn off cursor 


Cursor left 
Cursor right 
Cursor down 
Cursor up 
Cursor home 
Cursor to left 
end of line 
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ASCII Code Apple PET TRS-80 
30 Erase to end of line 
31 Clear to end 

of frame 

32 Space Space Space 
33 | | | 
34 7 - 
35 # # # 
36 $ $ $ 
37 % % % 
38 & & & 
39 
40 ( ( 

1 ) ) 
AQ * * * 

3 + + + 
44 
45 
46 
47 / / / 
48 0 0 0 
49 | 1 1 
50 2 2 2 
51 3 3 3 
52 4 4 4 
53 5 5 5 
54 6 6 6 
55 7 ri 7 
56 8 8 8 
57 9 9 ) 
58 
59 
60 < < < 
61 = = = 
b2 > > > 
63 ? ? ? 
64 @ @ @ 
65 A A A 
66 B B B 
67 CG C C 

D D D 


ASCIl Codes C3 


ASCII Code Apple 


N<x<x SB <c cCHmnwpvovdo2zZzarxrzec-—-rtogomm 


Cursor up 
Back slash Cursor down 
Cursor left 
‘ Cursor right 
Underscore Left arrow Underscore 
Cursor up 
Reverse off 
Clear screen 
Cursor left 


E 
F 
G 
H 
| 

J 

K 
L 

M 
N 
O 
P 

Q 
R 
S 

r 

U 
V 
Ww 
X 
Y 
Z 


—-N«<~x<xSB< CHMNDOTVOZZArAecC-—-wA}OSTM 


ed 


D THE EDITOR AND CROSS- 


REFERENCE TABLE GENERATOR 


In this appendix we describe two programs, mentioned several times in text, that 
we recommend for use in documenting your programs. They are available on diskette 
from the authors. One produces a formatted listing of a program and the other creates 
a cross-reference table of the variables used in a program. 


EDITOR 


The EDITOR makes a formatted list of your program It indents the contents of 
FOR-NEXT loops and does a page turn after every sixty lines. To run the EDITOR do 
the following: 


1 Load your program. 


2 Save your program under the name XSOURCE on a disk which also contains 
the EDITOR software. 


3 Enter EXEC EDITOR. 


Note that you do not use the RUN command but rather the EXEC command. While the 
EDITOR is running, a number of Applesoft prompts will appear on the screen and the 
disk drive will be intermittently active. Be sure that a printer controller board is installed 
in slot number one and that the printer is turned on and ready to go before entering 
EXEC EDITOR. 


GROSS-REFERENCE TABLE GENERATOR 


The cross-referefice table generator works like the editor Follow these three 
steps: 
1 Load your program. 


2 Save your program under the name XSOURCE on a disk which also contains 
the cross reference generator software. 


3 Enter EXEC CROSSREF 


This program will take several minutes to run. While it is running Applesoft 
prompts will appear on the screen and the disk drive will be intermittently active. The 
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program will prompt for a choice of hardcopy or not. If you select the hardcopy option, 
be sure the printer is ready to run. When you choose hardcopy the output will be about 
eighty columns wide. When you do not select hardcopy, the output will fit on the forty 
column screen. You may have to use CTRL/S to slow down screen output. 

Both the editor and the cross-reference table generator work on the same 
principle. They first capture your program as a text file and then process it. Thus, you 
can produce a second edited listing by merely entering RUN EDIT This is adequate 
because the text file has already been created. So too, if you want a cross-reference 
table for a file just processed by ihe editor, merely enter RUN XREF Both programs 
assume that the printer controller board is in slot one lf it is not, change the 
program. 
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Accumulator, 60-62 
Algorithm, 39 
Algorithmic language, 40 
Algorithmic language summary, A1 
ALU, 6 
APPEND, 232 
Append files, 232 
Apple error codes, 231 
Arithmetic assignment statement, 21 
Arithmetic logic unit, 6 
Arithmetic operations, 24 
array 
as an accumulator, 117-118 
declaration, 114 
defined, 109 
one-dimensional, 115 
sorting, 118-121 
two-dimensional, 124-26 
ASC, 138 
ASCII codes, C1 
coding system, 135 


Bad data checking, 156 

Bar graphs, 198-200, 202-204 
BASIC, 1, 6, 19 

BLOAD, 285 


INDEX 


Break, 56 
BSAVE, 284 
Bubble sort, 154 
Bug, 161 

Byte, 3 


Case structure, 174-179 

Central processing unit, 3 

Character data, 135 

CHRS$, 137. See a/so Function 

CHR$S (147), 15, 139 

CHRS$(4), 228 

CLEAR, 142 

CLOSE, 228-229 

Closing files, 228-229 

CLS, 15, 139 

Coding 
definition, 39, 45 
mathematical functions, 101-102 
rules, 103 

COLOR, 205-206 

Comma, 28 


Complements to relational operators, 58 


Computer, 19 
Concatenation of string, 141 
Conditional transfer, 81 
Control structure, 66 
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Control unit, 3 

Counter, 59-60 

CPU, 3 

Crash, 244-248 

Cross-reference table, 49 
Cross-reference table generator, D1 
Cursor, control, 9-10, 10-11 


DATA, 23 
Debugging, 161 
techniques, 179-185 
Decimal point alignment, 149-150 
Decision structure 
definition, 6S 
doubie aiternative, 6S 
multiple alternative, 174 
single alternative, 66 
Default value, 87 
for step size, 75 
DEL, 31 
DELETE, 32 
Dependent statement, 57 
DIM, 114 
Divisibility test, 92 
Documentation 
definition, 48 
external, 48 
internal, 48 
DOS, 228 
Dummy variable, 98 


EBCDIC, 135 

Editing. 31-34 

Error codes (Apple), 231 
Errors typology, 161 


Field, 27-28 
Files, 228 
definition, 225-226 


direct access, 234-239 
PET, 240-244, 248-249 


sequential access, 227-234 


TRS-80, 249-250 
FIX, 917 
FOR-NEXT loop 
definition, 75 
for summation, 78 
to calculate area, $2 
transfer from, 81 
FRE (0), 11 
Function 
ABS, 92 
argument of, 89 


en f4 processor, Seed 


ASC, 138 

built-in, 89 

CHRS, 137 
definition, 89 

FIX, 91 

INT, 90 

LEFT$, 143-145 
LEN, 142 

MIDS, 143-145 
modifying output, 90 
returned value, 89 
RIGHTS, 143-145 
RND, 93-97 

SEGS, 144 

SOR, 89 

STRS, 150 
user-defined, 97-100 


L/Al aci4 
VAAL, 101 


GOSUB, 172 

GOTO, 54 

GR, 205-208 

graphic image 
adding text, 289-292 
loading, 285 
printing, 286-288 
saving, 284 


Hardware, 8 

HCOLOR, 211-212 

HGR, 211-212 

HGR2, 215 

Hierarchy of operations, 25 
High resolution graphics, 211-215 
Higher level language, 6, 19 
HLIN, 207 

HOME, 15, 139 

HPLOT, 211-212 

HTAB, 207 

Human-computer interface, 5 


IF-THEN, 55 
Immediate mode, 8 
Implied operations, 101 
Indexed loop, 73-87 
INPUT, 22, 230, 243, 
files, 230, 243 
validation, 155-156 
Input-output, 3 
INT, $0 


Keyword, 20 
Kilobyte, 3-4 


LEFT$, 143-145 
LEN, 142 
LET, 22 
Line feed, 28 
Logical expression, 57 
Loop index, 73 
Loop 
definition, 53 
exit, 56 
nested, 120 
simple, 53, 56 
Low resolution graphics, 204-210 
Lower case, 157-159 


Index 


Machine language, 7 
Mapping 
computer, 273-276 
coordinate file, 276-278 
program, 279-284 
Matrix 
addition, 127 
definition, 115 
identity, 129 
inversion, 129 
multiplication, 127-129 
Median, 121-123 
MEM, 11 
Miemory, 3 
Microprocessor, 2 
MIDS, 143-145 
Midrange, coordinates, 278-279 
Viodel 
definition, 253 
Leontief, 254-257 
pasture ecosystem, 257-260 
Monte Carlo method, 96-97, 108 
Monte Carlo simulation, 268-271 
MUBASIC, 138, 144 


Nested loop, 120 

NEW, 20 

NOTRACE, 184 

Null string, 141-142 

Numeric input and output, 104-105 


ON GOSUB, 175 

ON GOTO, 175 

ONERR GOTO, 230 

OPEN (files), 228, 235, 240-241 

Operators, arithmetic, 24 
relational, 57 

Order exploding, 130-132 


Index 


Parameter variable, 98 
PEEK, 231 
PLOT, 205 
POKE, 158-159 
Primitive operation, 40 
PRINT, 26 
PRINT @, 210, 223 
Print image, 195-196 
PRINT TAB, 192-195 
Program, 5 

blocks, 167-170 

mode, 7 

structure, 162-165 
Programming, 37 
Prompt, 9-10 
Pseudocode, 40 
Punctuation, 27 


RAM, 3 


Random access memory, 3 


Random integers, 95 


Random words, 151-154 


READ, 23 
READ (files), 230 
Read-only memory, 8 


Real time displays, 220-221 


Record 
logical, 225 
physical, 226 


Relational operators, 57 


REM, 34 

Remark, 34 

Recervod ward 91 
RESET, 134, 210 
RESTORE, 123-124 
RETURN, 172 
RIGHTS, 143-145 
RND, 93-97 

ROM, 8 

Rounding, rules for, 91 


Scientific notation, 104, 217-219 
Screen 
characteristics, 13-15 
editing, 31-34 
grid, 8 
Scrolling, 10 
SEGS$, 144 
Semicolon, 28 
SET, 209-210 
Significant digits, 216, 219-220 
Simulation 
definition, 253 
genetics, 266-268 
inventory, 268-271 
Soft switches, 286 
Software, 8 
Sorting 
numbers, 118-121 
strings, 154-155 
SOR, 89 
ST, 244 
Statement, 20 
Statement number, 20 
STRS$, 150 
String 
assignment, 139 
comparison, 140-141 
concatenation, 141 
constant, 136 
functions, 137 
length determination, 141-142 
variable, 136 
Structured programming, 160-167 
Subroutine, 170-173 
library of, B1 
Subscripts, 110 
Substring, 143 
indexing, 145-147 
selection, 143-145 
Summation notation, 78 
Syntax, 7 
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TAB, 192-195 

Teletype graphics, 197-204 
Text, 206 

TI, 220 

TI$, 220 

TRACE, 184 

Trailer value, 56 


User-defined functions, 97-100 


VAL, 151 

variable 
definition, 20-21 
dummy, 98 
list, 49 
parameter, 98 
string, 136 

VLIN, 207 

VTAB, 207 


WRITE (files), 228 


X-Y plots, 200-201 


Reviewer comments on BASIC for MICROCOMPUTERS: Apple, TRS-80, PET 


“I like the introductory Chapters 1 and 2. They are important for the naive college 
freshman who needs to learn the language and history of microcomputers. And for the 
students who have tried micros, these chapters provide an excellent review.” 


State University College-Potsdam, New York 


“We do quite a bit of graphics, because students enjoy it and because all the common 
micros have such features. We cover strings and graphics about like your book does.”’ 


Arkansas State University 


“I like the level and style of the text. | do think it will sustain student interest. | would 
also recommend this text for the home computer hobbiest. It is very easy to follow.” 


Bethune-Cookman College 
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